Question

Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

    s:=0;

    k:=1;

    while s < 66 do begin

        k:=k+3;

        s:=s+k;

    end;

    write(k);

end.

Answer 1

Значение переменных 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.