28. Что выведет программа? var n: integer; begin n := 123; while n > 0 do begin write(n mod 10); n := n div 10; end; end.

Разберем, что делает этот код:

• var n: integer; - объявляется целочисленная переменная n.
• begin - начало программы.
• n := 123; - переменной n присваивается значение 123.
• while n > 0 do begin - цикл выполняется, пока n больше 0.
• write(n mod 10); - выводится последняя цифра числа n (остаток от деления на 10).
• n := n div 10; - n становится целой частью от деления на 10 (отбрасывается последняя цифра).
• end; - конец цикла.
• end. - конец программы.

Посмотрим, как изменяется значение n и что выводится на экран:

• 1-я итерация: n = 123, выводится 123 mod 10 = 3, n становится 123 div 10 = 12
• 2-я итерация: n = 12, выводится 12 mod 10 = 2, n становится 12 div 10 = 1
• 3-я итерация: n = 1, выводится 1 mod 10 = 1, n становится 1 div 10 = 0

Цикл завершается, так как n стало равным 0.

Ответ: 321