Question

Записать на языке паскаля.

"Даны два числа. Замените меньшее из них модулем разности этих чисел, а большее модулем суммы."

СРОЧНО

Answer 1

Uses crt;
var a,b,c:integer;
begin
writeln('Vvedi a,b')
readln(a,b);
c:=a+b;
if (a>b) then
begin
b:=abs(a-b);
a:=c;
end
else if (a<b) then
begin
a:=abs(a-b);
b:=c;
end;
writeln('a=',a,' b=',b);
end.