Question

Помогите, пожалуйста!
Дан ряд чисел 1-2+3-4+5-...+56
Найти сумму ряда
Нужно написать программу в Pascal ABC и нарисовать блок-схему.

Answer 1

var
a,b,i:integer;
begin
for i:=0 to 56 do
begin
if i mod 2 = 0 then a:=a-i else a:=a+i;
end;
end.