Форум » Циклы и ветвления » Прошу предложить идею решения задачи (20) » Ответить
Прошу предложить идею решения задачи (20)
grebnev_a@mail.ru: Прошу предложить идею решения задачи 20. Получив на вход число x, алгоритм печатает число А. Укажите такое число x, при вводе которого алгоритм печатает 22935. Паскаль:[pre2]var x, K, A, B: integer; begin readln(x); K:=1; while x>0 do begin if (x mod 10) mod 2 = 0 then A:=A*10+x mod 10 else begin K:=K*10; B:=B*10 + x mod 10 end; x:=x div 10 end; A:=A*K + B; writeln(A) end.[/pre2]
Ответов - 2
Поляков: Задача классная, но я думаю, что её авторы не поняли, насколько она хороша и глубока. :-) Два замечания: 1) в начале программы хорошо бы написать [pre2]A:=0; B:=0;[/pre2]2) здесь несколько решений, поэтому в такой постановке задача некорректна; можно искать, например, наименьшее или наибольшее решение. Полный разбор есть на сайте.
grebnev_a@mail.ru: С замечанием согласен. Спасибо огромное!
полная версия страницы