Question

Напишите фрагмент программы, находящий сумму квадратов чисел от 1 до 100. (Паскаль)

Answer 1

Если фрагмент, тогда

s:=0;
for i:=1 to 100 do
s:=s+i*i;