Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей — Pascal(Паскаль)

program nulw;
var a, b, summ, razn, proizv, chast: real;
begin
    write('Введите два числа: ');
    read(a, b);
    a := abs(a);
    b := abs(b);
    summ := a + b;
    proizv := a * b;
    chast := a / b;
    razn := a - b;
    writeln('Сумма модулей -- ', summ:5:2);
    writeln('Разность модулей -- ', razn:5:2);
    writeln('Частное модулей -- ', chast:5:2);
    writeln('Произведение модулей -- ', proizv:5:2);
end.

Leave a Comment