Поиск комбинации, программа-подборщик Опции

[Kos]

Уважаемые программисты, мне была задана задача по информатике, но понять как делать я не смог, а потому и обращаюсь к вам...
Текст задачи:
Клиент банка забыл 4-значный шифр своего сейфа, но помнит, что шифр был простым числом, а произведение шифра равняется 243, сколько и каких вариантов надо чтоб отгадать шифр.

Мысли есть, но они наверно глупы...
1. Создать подпрогу, которая выводит числа random, при условии;
2. создать подпрогу, которая сохраняет все вариации;
Пока никаких соображений...
Заранее спасибо...

[klem4]

Так как нужно проверять произведение цифр числа, мне кажется лучше не одним циклом от 0 до 9999, чтобы не разбивать число на цифры в процессе, а 4-мя циклами от 0 до 9

for i := 0 to 9 do
 for j := 0 to 9 do
  for k := 0 to  9 do
   for l := 0  to 9 do
    if i*j*k*l = 243 then ...

Сообщение отредактировано: klem4 - 15.02.2006 21:08