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

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

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

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