|
PROG
|
(ARIBAS) a := 5; n := 1; writeln("a(", n, ") = ", a); stop := 50000; run := true; c := 1; while run do b := a; len := length(itoa(b)); inc(n); a := 1; while a mod 10^len <> b and c <> stop do inc(c); a := 5^c; end; if c < stop then writeln("a(", n, ") = ", 5, "^", c, " = ", a); else writeln("a(", n, ") > ", 5, "^", c); run := false; end; end;
|