Даны два ненулевых числа. Найти их сумму, разность, произведение и частное их квадратов. Язык Pascal
Ответы
Ответ дал:
27
var
a, b: integer;
begin
readln(a, b);
writeln('Сумма: ', a + b);
writeln('Разность: ', a - b);
writeln('Произведение: ', a * b);
writeln('Частное квадратов: ', sqr(a) / sqr(b));
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад