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

Давайте разберемся с данной программой по шагам. ### Программный код Программа написана на Pascal, которая состоит из двух целых переменных `k` и `s`, а также цикла `while`. Начальные значения обеих переменных равны нулю: ```pascal s := 0; // Начальное значение переменной s k := 0; // Начальное значение переменной k ``` ### Цикл Следующий фрагмент — это цикл, который будет выполняться до тех пор, пока переменная `s` не станет больше или равной 80: ```pascal while s < 80 do begin s := s + 2 * k; // Увеличиваем s на 2 * k k := k + 4; // Увеличиваем k на 4 end; ``` ### Пошаговое выполнение цикла Теперь рассмотрим, что произойдет на каждой итерации цикла: 1. **Первая итерация:** - `s = 0`, `k = 0` - Условие `s < 80` выполняется. - `s := s + 2 * k` → `s = 0 + 2 * 0 = 0` - `k := k + 4` → `k = 0 + 4 = 4` 2. **Вторая итерация:** - `s = 0`, `k = 4` - Условие `s < 80` выполняется. - `s := s + 2 * k` → `s = 0 + 2 * 4 = 8` - `k := k + 4` → `k = 4 + 4 = 8` 3. **Третья итерация:** - `s = 8`, `k = 8` - Условие `s < 80` выполняется. - `s := s + 2 * k` → `s = 8 + 2 * 8 = 24` - `k := k + 4` → `k = 8 + 4 = 12` 4. **Четвертая итерация:** - `s = 24`, `k = 12` - Условие `s < 80` выполняется. - `s := s + 2 * k` → `s = 24 + 2 * 12 = 48` - `k := k + 4` → `k = 12 + 4 = 16` 5. **Пятая итерация:** - `s = 48`, `k = 16` - Условие `s < 80` выполняется. - `s := s + 2 * k` → `s = 48 + 2 * 16 = 80` - `k := k + 4` → `k = 16 + 4 = 20` 6. **Шестая итерация:** - `s = 80`, `k = 20` - Условие `s < 80` **не выполняется.** - Цикл завершает свою работу. ### Вывод После завершения цикла, программа выполняет команду `write(s);`, которая печатает значение переменной `s`. В результате финальное значение `s` — 80. ### Ответ Таким образом, на выходе программа напечатает **80**. Она не напечатает 56 и 800, так как достигнув 80, цикл завершает выполнение.