Почему-то сайт informatics считает что я не совсем - вопрос №11827628 от popravkinaekaterina 09.03.2020 20:02

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.

popravkinaekaterina · 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.