Question

В результате выполнения фрагмента программы:
While n<>0 do begin
Write (2*(n mod 10)+1);
n:= n div 10;
end;
На экран выведено число 13717 Какое число хранилось до этого в переменной n?
1)716 2)638 3)386 4)836

Answer 1

Если число имеет вид 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)