Записать на языке паскаля. "Даны два числа. Замените меньшее из них модулем разности...

Question

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

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

СРОЧНО

Comments

сейчас напишу. 3 мин

---

uses crt;var a,b,s,r: integer;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);s:=a+b;if a>b then beginr:=a-b;a:=r;b:=s; endelsebeginr:=b-a;b:=r;a:=s; end; writeln(a,b);end.

---

так?

---

Зачем так много строк??

---

и где модуль тогда?

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 (abegin
a:=abs(a-b);
b:=c;
end;
writeln('a=',a,' b=',b);
end.