1) Напишите линейную программу, в результате выполнения которой целочисленные переменные x и y обменяются значениями. При этом нельзя использовать дополнительные переменные. Найдя такой алгоритм, определите, в чем его недостаток по сравнению с методом обмена через третью переменную. Можно ли его применять для вещественных чисел? (Паскаль) 2) Напишите оператор присваивания, в результате выполнения которого, целочисленной переменной h присвоится значение цифры, стоящей в разряде сотен в записи положительного целого числа k (например, если k = 28 796, то h = 7).

1) program zz1;

var x, y : integer; / / задаем переменные целого типа

begin

write (' введите первое число x '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число y '); / / вводим с клавиатуры второе число

read (y);

x : = x + y;

y : = x - y;

x : = x - y;

write (x, ' ', y); / /выводим ответ

end.

Недостаток этого метода заключается в большем количестве действий, по сравнению с методом обмена через третью переменную. Для вещественных чисел этот метод применять нельзя.

2) program zz1;

var k, h : integer; / / задаем переменные целого типа

begin

write (' введите число k '); / / вводим с клавиатуры число

read (k);

h: = (k mod 1000) div 100;

write (h); / /выводим ответ

end.