Question

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

Answer 1

• Program Brainly;
• Var a, b: Integer;
• Begin
• WriteLn('Введите а и b: = ');
• ReadLn(a,b);
• WriteLn('Сумма: = ', ((a * a) + (b * b)));
• WriteLn('Произведение: = ', ((a * a) * (b * b)));
• end.

Answer 2

Вот пример решения этой задачи на языке Pascal:

pascalCopy code
program SquareSumAndProduct;

var
  num1, num2, squareSum, squareProduct: real;

begin
  // Введите два ненулевых числа
  write('Введите первое число: ');
  readln(num1);
  
  write('Введите второе число: ');
  readln(num2);

  // Вычислим квадраты их значений
  squareSum := sqr(num1) + sqr(num2);
  squareProduct := sqr(num1) * sqr(num2);

  // Выведем результаты
  writeln('Сумма квадратов: ', squareSum);
  writeln('Произведение квадратов: ', squareProduct);
  
  // Подождем, пока пользователь не нажмет Enter, чтобы закрыть программу
  readln;
end.

Эта программа сначала запрашивает у пользователя ввод двух ненулевых чисел, затем вычисляет квадраты этих чисел, суммирует их и вычисляет произведение квадратов. Результаты выводятся на экран.