даны два числа х у найти сумму квадратов и произведение кубов этих чисел на паскале

Чтобы найти сумму квадратов двух чисел \( x \) и \( y \), а также произведение их кубов на языке программирования Pascal, давайте рассмотрим, как это можно сделать с помощью простого кода.

Вот пример программы, которая выполняет эти операции:

program SumAndProduct;
var
  x, y: Integer;
  sumOfSquares: Integer;
  productOfCubes: Integer;
begin
  { Вводим два числа }
  Write('Введите первое число x: ');
  ReadLn(x);
  Write('Введите второе число y: ');
  ReadLn(y);

  { Вычисляем сумму квадратов }
  sumOfSquares := (x * x) + (y * y);
  { Вычисляем произведение кубов }
  productOfCubes := (x * x * x) * (y * y * y);

  { Выводим результаты }
  WriteLn('Сумма квадратов чисел ', x, ' и ', y, ' равна: ', sumOfSquares);
  WriteLn('Произведение кубов чисел ', x, ' и ', y, ' равно: ', productOfCubes);
end.

Объяснение кода:

1. Переменные: Объявлены переменные x и y для хранения целых чисел, а также sumOfSquares и productOfCubes для хранения результатов вычислений.

2. Ввод: Программа запрашивает у пользователя ввод двух целых чисел с помощью Write и ReadLn.

3. Вычисления:

   • Сумма квадратов считается по формуле \((x^2 + y^2)\).
   • Произведение кубов считается по формуле \((x^3 * y^3)\).

4. Вывод: Результаты вычислений выводятся на экран с помощью WriteLn.

Таким образом, данный код позволит вам вычислить желаемые математические операции для введенных чисел. Если у вас есть дополнительные вопросы или нужны пояснения, не стесняйтесь спрашивать!