6) (Д.В. Богданов) Запишите число, которое будет выведено в результате работы программы:var a, b, с : integer; begina := 0; b := 0; с := 0;while 2 * a < 200 do beginb := b + 3;c := c - 1;a := a + b + cend;write(a - 10) end.

В данной программе изначально a=0, b=0, c=0.

Пока 2*a меньше 200 b увеличивается на 2, с уменьшается на 1, к a прибавляется b и c.

a b c

0 0 0

2 3 -1

6 6 -2

12 9 -3

20 12 -4

30 15 -5

42 18 -6

56 21 -7

72 24 -8

90 27 -9

110 30 -10

Выходим из цикла

Выводится a-10.

a=110; a-10=110-10=100.

Выводится 100.

: 100