Почему-то сайт 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.

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.

drakonchik5005 · Answer

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

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.

Популярные вопросы