Задача по паскалю. У ведіть два числа

Question

Задача по паскалю. У ведіть два числа. Менше замініть сумою цих чисел, більше — їх різницею. Видітьрезультати.

Answer 1

95

rsbn5

28 февраля 2023

var a,b,x,y: integer; beginwriteln ('vvedite 2 chisla'); readln (a,b); if a-b>0 thenbeginx: =a-b; y: =a+b; endelsebeginx: =a+b; y: =b-a; end; write ('a=',x,', b=',y); readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: