var i,s:integer;
begin
s:=0;
for i:=1 to 99 do
if i mod 2<>0 then s:=s+i*i;
write('s=',s);
end.
var i,s:integer;
begin
s:=0;
i:=1;
while i<=99 do
begin
if i mod 2<>0 then s:=s+i*i;
i:=i+1;
end;
write('s=',s);
end.
var i,s:integer;
begin
s:=0;
i:=1;
repeat
if i mod 2<>0 then s:=s+i*i;
i:=i+1;
until i>99;
write('s=',s);
end.
Объяснение:
