Найти степень числа N, у которой три последние цифры одинаковые.

[Vika_0_0]

Найти степень числа N, у которой три последние цифры одинаковые.
заранее спасибо)

[Duha666]

Без учета длинной арифметики:

readln(n);
tmp := 1;
while (tmp mod 10 <> tmp div 100 mod 10 or tmp mod 10 <> tmp div 10 mod 10 or tmp div 100 mod 10 <> tmp div 10 mod 10) do
begin
  answer := answer + 1;
  tmp := tmp * n;
end;
writeln(answer);

[Vika_0_0]

[QUOTE=Duha666;996712]


это через while как я поняла. а как будет через repeat?

[bonjovi]

readln(n);
tmp := 1;
BEGIN
Repeat
  answer := answer + 1;
  tmp := tmp * n;
Until  (tmp mod 10 <> tmp div 100 mod 10 or tmp mod 10 <> tmp div 10 mod 10 or tmp div 100 mod 10 <> tmp div 10 mod 10);
end;
writeln(answer);

[Vika_0_0]

а описывать переменные не надо????

[VIK_aka_TOR]

Сообщение от Vika_0_0

а описывать переменные не надо????

вообщето нужно.. в любом случае...

[Plague]

(tmp mod 10 <> tmp div 100 mod 10 or tmp mod 10 <> tmp div 10 mod 10 or tmp div 100 mod 10 <> tmp div 10 mod 10);

Индусский код? И будет переполнение!

А задача примерно так решается

var n,i,x:longint;

begin
  read(n);
  x:=1;
  i:=0;
  repeat
    x:=n*x mod 1000;
    inc(i);
  until x mod 111=0;
  write(i);
end.

чтобы не мучаться с подбором чисел вводите
22, 31, 38, 98, 192, 199, 337, 399, 442 ну и т.д.
просто для других чисел не известно если такая степень.

[Serge_Bliznykov]

Plague, супер! Респект!

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