Question

Составить программу, вычисляющую сумму квадратов всех чисел от 1 до 100. (В Pascal)

Answer 1

var
i: integer;
s: real;

begin
s := 0;
for i := 1 to 100 do
s := s + i * i;
writeln(s:7:0);
end.

Answer 2

Конечно, вот программа на Pascal, которая вычисляет сумму квадратов всех чисел от 1 до 100:

pascalCopy code
program SumOfSquares;

var
  i, sum: integer;

begin
  sum := 0;
  
  for i := 1 to 100 do
  begin
    sum := sum + i * i;
  end;
  
  writeln('Сумма квадратов всех чисел от 1 до 100: ', sum);
end.

Эта программа использует цикл for, чтобы перебирать числа от 1 до 100 и добавлять квадрат каждого числа к общей сумме. Результат выводится на экран с помощью функции writeln.