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

1. Напишите программу, подсчитывающую сумму квадратов всех чисел от 1 до $$n$$.

Нужно последовательно перебрать все числа от $$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$$.