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

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

На Pascal

Question

Иван

3 января, 08:24

+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