Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Решите задачу:
Даны 2 ненулевых числа. Найти сумму, разность, произведение и частное их модулей.
Желательно оформите, как решение задачи в Паскале

Ответ оставил Гость

Var
a, b: integer;
begin
readln(a, b);
writeln(Сумма: , abs(a)+abs(b));
writeln(Разность: , abs(a)-abs(b));
writeln(Произведение: , abs(a)*abs(b));
writeln(Частное: , abs(a)/abs(b));
end.