Определите, что будет напечатано в результате работы следующего фрагмента программы: 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.

Разберем код программы построчно:

• var k, s: integer; - Объявляем две целочисленные переменные k и s.
• s := 0; - Инициализируем переменную s значением 0.
• k := 0; - Инициализируем переменную k значением 0.
• while s < 80 do begin - Начинаем цикл, который выполняется до тех пор, пока значение переменной s меньше 80.
• s := s + 2 * k; - Увеличиваем значение переменной s на 2 * k.
• k := k + 4; - Увеличиваем значение переменной k на 4.
• end; - Конец цикла.
• write(s); - Выводим значение переменной s.

Теперь проследим за изменением переменных в цикле:

• Итерация 1: s = 0, k = 0. s становится 0 + 2 * 0 = 0, k становится 0 + 4 = 4.
• Итерация 2: s = 0, k = 4. s становится 0 + 2 * 4 = 8, k становится 4 + 4 = 8.
• Итерация 3: s = 8, k = 8. s становится 8 + 2 * 8 = 24, k становится 8 + 4 = 12.
• Итерация 4: s = 24, k = 12. s становится 24 + 2 * 12 = 48, k становится 12 + 4 = 16.
• Итерация 5: s = 48, k = 16. s становится 48 + 2 * 16 = 80, k становится 16 + 4 = 20.

На следующей итерации цикла условие s < 80 не выполняется, так как s равно 80. Следовательно, цикл завершается, и программа выводит значение s, которое равно 80.