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

var b , c : integer ;

begin

b := 15;

c := 0;

while b <> 3 do

begin

c := c + b ;

b := b - 3

end ;

write (c) ;

end .

Просто отвен не нужен . Нужно решение .

1

Ответы и объяснения

Лучший Ответ!
2013-04-25T19:41:01+04:00

цикл будет выполнятся пока b не будет равно 3 вроде так

с1=0+15=15

b1=15-3=12

c2=15+12=27

b2=12-3=9

c3=27+9=36

b3=9-3=6

c4=36+6=42

b4=6-3=3

всё b=3 следовательно останавливаемся

нам нужно вывести с. Ответ:42