Question

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

Answer 1

Ответ:

k = 12;

Объяснение:

Answer 2

Давайте разберёмся с фрагментом программы по шагам:

1. Инициализация переменных:

   • s инициализируется значением 2.
   • k инициализируется значением 2.

2. Вход в цикл while:

   • Пока значение s меньше 8, выполняем следующие действия.

3. Итерация 1:

   • k mod 3 равно 2 % 3, что дает остаток 2.
   • Текущее значение s (2) увеличивается на остаток, то есть на 2.
   • Текущее значение k (2) увеличивается на 2.
   • Теперь s равно 4, а k равно 4.

4. Итерация 2:

   • k mod 3 равно 4 % 3, что дает остаток 1.
   • Текущее значение s (4) увеличивается на остаток, то есть на 1.
   • Текущее значение k (4) увеличивается на 2.
   • Теперь s равно 5, а k равно 6.

5. Итерация 3:

   • k mod 3 равно 6 % 3, что дает остаток 0.
   • Текущее значение s (5) увеличивается на остаток, то есть на 0.
   • Текущее значение k (6) увеличивается на 2.
   • Теперь s равно 5, а k равно 8.

6. Выход из цикла:

   • Значение s (5) все еще меньше 8, поэтому цикл продолжается.

7. Итерация 4:

   • k mod 3 равно 8 % 3, что дает остаток 2.
   • Текущее значение s (5) увеличивается на остаток, то есть на 2.
   • Текущее значение k (8) увеличивается на 2.
   • Теперь s равно 7, а k равно 10.

8. Выход из цикла:

   • Значение s (7) все еще меньше 8, поэтому цикл продолжается.

9. Итерация 5:

   • k mod 3 равно 10 % 3, что дает остаток 1.
   • Текущее значение s (7) увеличивается на остаток, то есть на 1.
   • Текущее значение k (10) увеличивается на 2.
   • Теперь s равно 8, а k равно 12.

10. Выход из цикла:

    • Значение s (8) больше или равно 8, поэтому цикл завершается.

11. Вывод результата:

    • Поскольку значение k (12) было последним присвоенным в цикле, оно будет выведено на экран.

Итак, в результате выполнения данного фрагмента программы будет напечатано число 12.