Игра с калькулятором, + Опции

[Учинек]

В калькулятор вводится натурально число К и нажимается клавиша "+". Калькулятор все еще показывает К. Цель игры: получить на экране число, состоящее из одинаковых цифр. Для ее достижения можно производить только одно действие - нажимать на клавишу "=" (возможно, 0 раз). После первого нажатия получается результат К+К, после очередного нажатия результат увеличивается на К. Требуется определить, удастся ли достичь цели, а если удастся, то какое число, состоящее из одинаковых цифр, будет получено первым. Количество отображаемых калькулятором цифр считать неограниченным, время работы батареек - тоже.
Ограничения: 1<=K<=999, время 1с.
Вводится одно число - К.
Вывести если цели достичь невозможно "No", если возможно, вывести два числа через пробел: цифру, из которой состоит искомое число, и количество цифр в числе.

Пример.
ввод№1
37
вывод№1
1 3

ввод№2
25
вывод
No




Я даже не знаю, что делать. Тупой перебор не пойдет потому как числа могут быть очень большие....как мне кажется должна быть формула, но вот только какая....

И еще по-моему числа которые заканчиваются на 0 не будут образовывать число с одинаковыми цифрами, сколько их не складывай.

Сообщение отредактировано: Учинек - 23.12.2008 16:31

[Lapp]

Вот:

var
  i,j,k,n,a: integer;
  d: byte;
  r: array[1..999]of boolean;

begin
  ReadLn(k);
  for d:=1 to 9 do begin
    for j:=1 to k do r[j]:=false;
    a:=d;
    n:=1;
    repeat
      r[a]:=true;
      while a<k do begin
        a:=a*10+d;
        Inc(n)
      end;
      while a>=k do a:=a-k
    until (a=0) or r[a];
    if a=0 then begin
      WriteLn(d,' ',n);
      exit
    end
  end;
  WriteLn('No')
end.

Да, сглупил я, однако..
Но зато - оказалось, что не только хорошо, но и не очень мало!

Вот контрольная выдача:

Код

Running "...uchinek-2.exe"
123
1 15
Running "...uchinek-2.exe"
37
1 3
Running "...uchinek-2.exe"
997
1 166
Running "...uchinek-2.exe"
25
No