В результате выполнения фрагмента программы:

While n0 do begin

Write (2 * (n mod 10) + 1);

n: = n div 10;

end;

На экран выведено число 13717 Какое число хранилось до этого в переменной n?

1) 716 2) 638 3) 386 4) 836

Если число имеет вид abc, то на экране должны быть выведены без пробелов числа (2c + 1), (2b + 1), (2a + 1). Каждое из этих чисел нечетное, меньшее 20. Поэтому 13717 допускает однозначное разделение на 3 числа 13, 7, 17. Для получения исходного числа надо из каждого из этих чисел вычесть 1, затем разделить на 2 и записать в обратном порядке.

(13 - 1) / 2 = 12 / 2 = 6

(7 - 1) / 2 = 6 / 2 = 3

(17 - 1) / 2 = 16 / 2 = 8

Ответ: 836 (4)