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

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

На Pascal

Question

Милетий

15 января, 01:24

+4

Ответы (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