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

program raz;
var a, b, summ, razn, proizv, chast: real;
begin 
    write('Введите значения a и b: ');
    readln(a, b);
    a := sqr(a);
    b := sqr(b);
    summ := a + b;
    razn := a - b;
    proizv := a * b;
    chast := a / b;
    writeln('Сумма квадратов -- ', summ);
    writeln('Разность квадратов -- ', razn);
    writeln('Произведение квадратов -- ', proizv);
    writeln('Частное квадратов -- ', chast);
end.

Leave a Comment

29 + = 33