По данной блок-схеме напишите программу на Паскале.

Hyun79 Hyun79    3   26.04.2020 23:37    0

Ответы
УмничкаХороша УмничкаХороша  13.10.2020 22:10

var x,y: integer;

begin

readln(x,y);

if (x>y) then

 begin

 x:= x - y;

 y:= x + y;

 end

else

 begin

 y:= y - x;

 x:= x - y;

 end;

writeln(x);

writeln(y);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика