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

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

СРОЧНО

1
сейчас напишу. 3 мин
uses crt;
var a,b,s,r: integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
s:=a+b;
if a>b then
begin
r:=a-b;
a:=r;
b:=s;
end
else
begin
r:=b-a;
b:=r;
a:=s;
end;

writeln(a,b);
end.
так?
Зачем так много строк??
и где модуль тогда?

Ответы и объяснения

2014-02-08T10:21:19+04:00
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.