напишите программу которая производит обмен значений переменных х и у если х больше у

Question

Информатика

Эля

3 января, 18:38

напишите программу которая производит обмен значений переменных х и у если х больше у

+2

Ответы (1)

Знаете ответ на вопрос?

Глеб · Answer 1

Если не использовать дополнительных переменных (для чисел), то:

Var x, y:integer;

begin

read (x, y) ;

x:=x+y;

y:=x-y;

x:=x-y;

writeln (x, ' ', y) ;

end.

Можно и через дополнительную переменную:

Var x, y, s:integer;

begin

read (x, y) ;

s:=x;

x:=y;

y:=s;

writeln (x, ' ', y) ;

end.