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.

Answer 2

Данный фрагмент программы вычисляет наименьшее целое число k, при котором сумма чисел от 1 до k (включительно) превышает 66.

Каждый раз в цикле while переменная k увеличивается на 3, а переменная s увеличивается на текущее значение k. Цикл продолжается, пока s не превысит 66.

Когда это произойдет, значение переменной k будет выведено на экран с помощью процедуры write.

Таким образом, результат работы программы будет зависеть от значения начального значения k. Если k равно 1, то значение k, которое будет выведено на экран, будет 13. Если k равно 2, то значение k, которое будет выведено на экран, будет 16, и так далее. Если начальное значение k больше или равно 20, то цикл никогда не выполнится, так как сумма чисел от 1 до 20 уже превышает 66.