Ответы
Ответ дал:
0
P.S. Благодарность и лучший ответ не помешает.
var i,s,n:integer;
begin
read(n);
for i:=1 to n do s:=s+i*i;
writeln(s);
end.
var i,s,n:integer;
begin
read(n);
for i:=1 to n do s:=s+i*i;
writeln(s);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад