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

Question

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

Экономика

Гость

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

Accepted Answer

var a,b,x,y: integer; begin writeln('vvedite 2 chisla'); readln(a,b); if a-b>0 then begin x:=a-b; y:=a+b; end else begin x:=a+b; y:=b-a; end; write('a = ',x,', b = ',y); readln; end.