Question

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

Answer 1

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