Задание:
Задача по паскалю. У ведіть два числа. Менше замініть сумою цих чисел, більше — їх різницею. Видітьрезультати.
Решение:
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.
Знаете другой ответ?