Помогите пожалуйста с задание по информатике ** написание программы в Паскаль: Найти...

Question

Помогите пожалуйста с задание по информатике на написание программы в Паскаль:
Найти сумму ряда
1-2+3-4+5-...+56

Comments

Сумму можно вычислить и без программы: (-1)*(56/2) = -28

Answer 1

var i,s:integer;
begin
s:=0;
for i:=1 to 56 do
 if i mod 2=1 then s:=s+i else s:=s-i;
writeln('s = ',s);
end.

Результат:
s = -28

Comments

Можешь пожалуйста через while

---

var i,s:integer;
begin
s:=0; i:=0;
while i<56 do<br> begin
i:=i+1;
if i mod 2=1 then s:=s+i else s:=s-i;
end;
writeln('s = ',s);
end.

---

Огромное спасибо тебе!!!!!!❤️❤️❤️