Question

Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0 while k<30 do begin k:=k+3; s:=s+k; end; write(s); end.

Answer 1

Цикл while вы­пол­ня­ет­ся до тех пор, пока ис­тин­но усло­вие s < 80, т. е. пе­ре­мен­ная k опре­де­ля­ет, сколь­ко раз вы­пол­нит­ся цикл.   Ак­ку­рат­но вы­пи­шем все s и k:   s 0 0 8 24 48 80 k 0 4 8 12 16 20   (Пом­ни­те, что усло­вие s < 80 про­ве­ря­ет­ся толь­ко после k:=k+4, по­это­му дей­ствие s:=s+2*k по­след­ний раз вы­пол­нит­ся для k=16)   Сле­до­ва­тель­но ответ 80.

Answer 2

В результате работы данного фрагмента программы, будет выведено:___165___