Ответы
Ответ дал:
0
program pr_1;
var i,n,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
writeln('s=',s);
end.
var i,n,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
writeln('s=',s);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад