Question

Что будет напечатано на экране после выполнения программы
Var
I,S: integer
begin
S:=0
for I:=1 to 10 do
begin
if I<6 then
S:=S+2
else
S:=S-1
end
write(s);
end

Answer 1

5

Мне максимально лень полностью описывать действия.

1) i = 1, s = 2 (0+2)

2)i = 2, s = 4 (2+2)

...

6)i = 6, s =9 (10-1)

7)i = 7, s = 8 (9 - 1)

...

10)i = 10, s = 5 (6 - 5)