Регистрация
Макс332211
03.03.2022 07:38
Информатика
Есть ответ 👍

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

267
437
Посмотреть ответы 2

Ответы на вопрос:

JustTonight
JustTonight
4,8(90 оценок)

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.

Daann4ik
Daann4ik
4,8(50 оценок)

ароппрмчнгсчапроспппссс


Картаның қосымша элементіне талдау жасап, сөйлемді толықтыр​

Популярно: Информатика