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.