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

Значение переменных k и s изменяются до тех пор, пока s < 66
Будет выведено значение переменной k. k = 19
Трассировка:
s       k
0      1
4      4
11      7
21    10
34   13
50   16
69   19       ← s > 66. Выводим k.