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

[Учинек]

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

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

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




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

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

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

[klem4]

Ухх, тысячу лет на Паскале не писал)))) Вот еще вариант:

function solve(const k: integer): longint;
var
  i, count: byte;
  n, value: longint;
  found: boolean;
begin
  found := false;
  i := 1;
  while not (found) and ( i < 10 ) do begin
    n := 10;
    value := i;
    count := 1;
    while not(found) and (n <= 1000000) do begin
      inc(count);
      inc(value, i * n);
      found := value mod k = 0;
      if not found then n := n * 10;
    end;
    if not found then inc(i);
  end;
  if found and ( value <> k ) then writeln(i, ',', count) else writeln('no');
end;

var
  k, v: longint;

begin
  {* for k := 1 to 999 do *}
  k := 123; 
  solve(k);
end.