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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a, b: integer; begin readln(a, b); writeln('Разность квадратов: ', sqr(a) - sqr(b)); writeln('Произведение квадратов: ', sqr(a) * sqr(b)); writeln('Частное квадратов: ', sqr(a)/sqr(b)); end.