"Единицы", Неплохая задачка... Опции

[xds]

Найти наименьшее число, кратное данному, запись которого в десятичной системе счисления состоит только из единиц, т. е. по данному натуральному N, 1 < N < 32767 получить k, такое, что число вида

Код

1111...11
  k раз

без остатка делится на N или определить, что такого k не существует.

Сообщение отредактировано: xds - 1.11.2004 12:02

[xds]

Наверное все испугались, что я опять собираюсь выставить их дураками
Да нет, просто испугались "интересной задачи" !

Сообщение отредактировано: Oleg_Z - 2.11.2004 11:55

[FreeMan]

Выкладывай решение. Хватит. Замучил всех. В каких пределах К?

[xds]

Код

program Ones;

var
 n, k: Integer;
 s: LongInt;

begin
 Write('N>');
 Readln(n);
 if (n and 1 = 0) or (n mod 5 = 0) then
   begin
     Write('Такого k не существует');
     Exit;
   end;
 s := 0;
 k := 0;
 repeat
   while s mod 10 <> 1 do Inc(s, n);
   s := s div 10;
   Inc(k);
 until s = 0;
 Writeln('k = ', k);
end.

Чем это я, интересно, всех замучил?