var
i,sum:integer;
begin
sum:=0;
i:=5;
while i<=200 do
sum:=sum+i;
i:=i+2;
end;
writeln ('Summa: ',sum);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
i,sum:integer;
begin
sum:=0;
i:=5;
while i<=200 do
begin
sum:=sum+i;
i:=i+2;
end;
writeln ('Summa: ',sum);
end.