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

Задание:

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

Решение:

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.

Знаете другой ответ?

Отправить свой ответ