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

[Учинек]

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

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

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




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

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

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

[Учинек]

да задача хороша=)

только в вашей задаче на некоторые числа(это те которые я протестировал) к примеру:
1)99
1 18
2)77
1 6
3)33
1 6
3)333
1 9
4)999
1 27

может быть в начале поставить проверку на то если число уже с одинаковыми числами, то вывести его.

[Lapp]

к примеру:
1)99
1 18
2)77
1 6
3)33
1 6
3)333
1 9
4)999
1 27

может быть в начале поставить проверку на то если число уже с одинаковыми числами, то вывести его.

Боюсь, это не решит проблему...
Дело в том, что сначала проверяются единицы (любое число единиц), потом двойки, и т.д. Поэтому число из единиц (если оно есть) находится раньше, чем из других цифр, даже если оно больше его.

Надо подумать...


Добавлено через 11 мин.
Вот. Надеюсь, "это есть наш последний" (С)

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

begin
  ReadLn(k);
  c:=0;
  m:=MaxInt;
  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 if n<m then begin
      c:=d;
      m:=n
    end
  end;
  if c=0 then WriteLn('No') else WriteLn(c,' ',m)
end.

Добавлено через 9 мин.

да задача хороша=)

Собственно, в ней ничего нет, кроме деления "уголком". Но простота тоже красива