Question

Даны два ненулевых числа. Составьте программу нахождения суммы, разности, произведения и частного квадратов этих чисел. (Паскаль)

Answer 1

Я могу помочь вам с написанием программы на Паскале, которая находит сумму, разность, произведение и частное квадратов двух ненулевых чисел. Вот пример такой программы:

program squares;
var
  a, b, s, d, p, q: real;
begin
  writeln('Введите два ненулевых числа:');
  readln(a, b);
  s := sqr(a) + sqr(b); // сумма квадратов
  d := sqr(a) - sqr(b); // разность квадратов
  p := sqr(a) * sqr(b); // произведение квадратов
  q := sqr(a) / sqr(b); // частное квадратов
  writeln('Сумма квадратов: ', s:0:2);
  writeln('Разность квадратов: ', d:0:2);
  writeln('Произведение квадратов: ', p:0:2);
  writeln('Частное квадратов: ', q:0:2);
end.

Вы можете запустить эту программу на онлайн-компиляторе Паскаля, например, [здесь]. Надеюсь, это вам поможет.