Динара
Антон
uses crt;
var i,r:integer;
begin
ClrScr;
r:=1;
for i:=1 to 100
writeln(r*r);
r:=r+2;
end;
end.
Если я правильно понял условие.
pe
petrovalv
s:=1;
r:=1;
for i:=1 to n begin
r:=r+2;
s:=s+r*r;
end;
Похожие вопросы