§ 7. Запись алгоритмов на языках программирования ГДЗ по Информатике 11 класс. Босова.
12. Напишите программу, подсчитывающую сумму квадратов всех чисел от 1 до n.
Ответ
var i, S, N : integer;
begin
WriteLn(‘ N = ‘);
ReadLn(N);
S := 0;
for i:=1 to N do S := S + i*i;
WriteLn(‘ summa = ‘, S)
end.