Var s,k:integer; begin s:=20; for k:=-45 to 43 do s:=s-k; writeln(s) end.

Question

Var s,k:integer; begin s:=20; for k:=-45 to 43 do s:=s-k; writeln(s) end.

Comments

И что с этим делать?

---

Всю программу скинь

---

это и есть вся программа

---

это в паскале вся программа

---

так что тогда с ней делать?

---

нужно определить что будет напечатано в результате выполнения.

---

ответ я знаю, но мне нужно само решение

Answer 1

В начальный момент s=20
s=20-(-45)=65
s=65-(-44)=109
остальное взаимоуничтожится, потому что s-(-43) = - (s - 43)

Comments

спасибо большое ;)