Почему-то сайт informatics считает что я не совсем верно написала код, помогите найти что...

Question

Почему-то сайт informatics считает что я не совсем верно написала код, помогите найти что не так. Задание : найти сумму квадратов от 1 до n. Var n, i, s:integer; Begin S:=0; Readln(n); For i := 1 to n do Begin S:=s+(i*i); End; Writeln(s); End.

Answer 1

Программа у Вас написана правильно, но попробуйте вот эту, тоже самое, но немного короче.

program ones;

var n,i,s:integer;

Begin

s:=0;

readln(n);

for i := 1 to n do

s:=s+i*i;

writeln(s);

end.