Задание 12 Параграф 7 ГДЗ Босова 11 класс (Информатика)

program Z_7_12;
var
x,s,n: integer;
begin
readln(n);
s:=0;
for x:=1 to n do
s:=s+sqr(x);
writeln(s)
end.
Программа: Z_7_12.pas (ссылка ниже)

Нужно последовательно перебрать все числа от $$1$$ до $$n$$, возвести каждое из них в квадрат и прибавить к сумме. Для этого удобно использовать цикл for и переменную s для накопления результата.

program Z_7_12;
var
  x, s, n: integer;
begin
  readln(n);
  s := 0;
  for x := 1 to n do
    s := s + sqr(x);
  writeln(s)
end.

Ответ

Программа находит сумму квадратов всех чисел от $$1$$ до $$n$$.