1) Напишите линейную программу,в результате выполнения которой целочисленные переменные x...

Question

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

Answer 1

1)
var x,y:real;
begin
  x:=random(1,100);
  y:=random(1,100);
  writeln('Ввели: x=',x,' y=',y);
  x:=x+y;
  y:=x-y;
  x:=x-y;
  writeln('Поменяли: x=',x,' y=',y);
end.

2)
var h,k:integer;
begin
  k:=random(10000,99999);
  writeln('Ввели: k=',k);
  h:=(k mod 1000) div 100;
  writeln('h=',h);
end.