Question

Найти квадрат суммы и сумму квадратов 2-х целых чисел,вводимых с клавиатуры.Черезе паскаль

Answer 1

Program summa;
var a, b ,SS,S: integer;
begin 
WRITELN ( ' Введите два целых числа' );
READLN(a, b);
S:= sqr (a+b);
SS := a*a + b*b;
WRITELN ('сумма квадратов чисел равна  ', SS);
WRITELN ('Квадрат суммы чисел равен  ', S);
END.

Answer 2

Для решения данной задачи в Паскале, необходимо выполнить следующие шаги:

1. Объявить переменные, которые будут хранить введенные с клавиатуры числа, а также переменные для хранения квадрата суммы и суммы квадратов.

var
  num1, num2, sum, squareSum, sumSquares: integer;

2. Считать два целых числа с клавиатуры и сохранить их в переменные num1 и num2.

writeln('Введите первое число: ');
readln(num1);

writeln('Введите второе число: ');
readln(num2);

3. Вычислить сумму введенных чисел и сохранить результат в переменную sum.

sum := num1 + num2;

4. Вычислить квадрат суммы и сохранить результат в переменную squareSum.

squareSum := sqr(sum);

5. Вычислить сумму квадратов и сохранить результат в переменную sumSquares.

sumSquares := sqr(num1) + sqr(num2);

6. Вывести на экран результаты вычислений.

writeln('Квадрат суммы: ', squareSum);
writeln('Сумма квадратов: ', sumSquares);

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