Составить программу

Вести с клавиатуры переменные х и у, поменять их значения местами, если x>y.

На Pascal

Question

Астра

27 ноября, 23:38

+5

Ответы (1)

Знаешь ответ?

Надюша · Answer 1

Var x, y:Integer;

Begin

readln (x);

readln (y);

if x>y then

writeln (x,' ', y);

if x
writeln (y,' ', x);

End.

Составить программуВести с клавиатуры переменные х и у, поменять их значения местами, если x>y.На Pascal