program sum_chet_otr_bol_min_100;
var
i,s:integer;
begin
i:=-100;
while i<0 do
s:=s+i;
i:=i+2;
end;
write(s);
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program sum_chet_otr_bol_min_100;
var
i,s:integer;
begin
i:=-100;
while i<0 do
begin
s:=s+i;
i:=i+2;
end;
write(s);
end.