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

Ниже вариант решения задания из учебника Босова, Босова 11 класс, Бином:

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

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 (ссылка ниже)