Составить программу для определения суммы чисел:-5, -1, 3, ....., 27.

Question

Составить программу для определения суммы чисел:
-5, -1, 3, ....., 27.

Answer 1

Var sum, i: integer;
begin
i:=-5; sum:=0;
while i<=27 do begin<br>sum:=sum+i;
i:=i+4;
end;
writeln(sum);
end.