21. Цикл в фрагменте программы

Решение:

Цикл repeat...until выполняется до тех пор, пока условие после until не станет истинным.

1. Инициализация: p = 2.
2. Первое выполнение цикла: p := p * 0.1. Теперь p = 2 * 0.1 = 0.2. Условие p < 0.1 (0.2 < 0.1) — ложно.
3. Второе выполнение цикла: p := p * 0.1. Теперь p = 0.2 * 0.1 = 0.02. Условие p < 0.1 (0.02 < 0.1) — истинно.
4. Цикл завершается.

Ответ: Цикл завершится, когда значение p станет меньше 0.1.