Длина периода 1/n Опции

[Artem7]

Никак не могу придумать по которому бы определялось длина периода 1/n (n любое число)

[Artem7]

Вот сделал так чтоб длину периода находило

Program dlina_perioda;
var
  m,n,i,j,k,k1,p,dlina:integer;
  drob:real;
begin
  write('Введите n ');readln(n);
  m:= 1;p:=10;j:=0;drob:=m/n;dlina:=0;
  writeln(drob:2:10);
  write('Длина периода= ');
  k := 1;
  while(k <= n) or (j <> m) do begin
    if k = n then j := m;
    i := p*m div n;
    m := p*m mod n;
    if k >= n then dlina:=dlina+1;
    k:=k+1;
  end;
  Write(dlina);
  readln;
end.

Сообщение отредактировано: Artem7 - 5.04.2012 17:16