Question

Найти сумму целых отрицательных четных чисел, больших -100
В паскале

Answer 1

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.