Question

Что будет выведено на экране монитора после выполнения следующего фрагмента программы: b := 0; While a<>0 Do Begin b := b*10 + a Mod 10; a := a Div 10; End; Write(b); если a = 13305? Решение какой задачи выражает этот фрагмент программы?

Answer 1

На экран будет выведено: 50331.

Получается, что эта программа переворачивает число.

Answer 2

Давайте выполним фрагмент программы вручную для значения a = 13305.

lessCopy code
a = 13305
b = 0

1st iteration:
b = b * 10 + a Mod 10 = 0 * 10 + 13305 Mod 10 = 0 + 5 = 5
a = a Div 10 = 13305 Div 10 = 1330

2nd iteration:
b = b * 10 + a Mod 10 = 5 * 10 + 1330 Mod 10 = 50 + 0 = 50
a = a Div 10 = 1330 Div 10 = 133

3rd iteration:
b = b * 10 + a Mod 10 = 50 * 10 + 133 Mod 10 = 500 + 3 = 503
a = a Div 10 = 133 Div 10 = 13

4th iteration:
b = b * 10 + a Mod 10 = 503 * 10 + 13 Mod 10 = 5030 + 3 = 5033
a = a Div 10 = 13 Div 10 = 1

5th iteration:
b = b * 10 + a Mod 10 = 5033 * 10 + 1 Mod 10 = 50330 + 1 = 50331
a = a Div 10 = 1 Div 10 = 0

End of loop since a = 0

Write(b) will output 50331

Значение переменной b после выполнения данного фрагмента программы равно 50331, что и будет выведено на экране монитора.

Этот фрагмент программы решает задачу обращения числа. В результате, число a будет перевернуто, и его цифры будут расположены в обратном порядке. Например, число 13305 становится 50331.