Question

Напишите программу: даны 3 целых числа, найти сумму их квадратов. Паскаль. ​

Answer 1

var

 a, b, c, sum :integer;

begin

 read(a, b, c);

 sum := a*a + b*b + c*c;

 writeln(sum);

end.

Answer 2

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

pascalCopy code
program SumOfSquares;

var
  num1, num2, num3, sum: integer;

begin
  writeln('Введите три целых числа:');
  readln(num1, num2, num3);

  sum := num1 * num1 + num2 * num2 + num3 * num3;

  writeln('Сумма квадратов чисел равна ', sum);
end.

Сохраните этот код в файл с расширением .pas (например, SumOfSquares.pas), затем скомпилируйте его с помощью своего компилятора Pascal (например, Free Pascal) для получения исполняемого файла. В результате выполнения программы будет запрошено ввести три целых числа, и программа выведет сумму их квадратов.