PATHS by *yuko*

#define x a[i]
var a:array[byte]of byte;i,k,m,n:comp;begin repeat
read(n);a[98]:=7;for n:=5to n do begin for i:=1to 99do
begin k:=k mod n*10+x;x:=k div n end;k:=0;i:=99;repeat
k:=k div$a+x*(n*4-2);x:=k mod$a;if x>0then m:=i;i:=i-1until
i<1end;for i:=m to 99do begin write(x);x:=0end;writeln until 0>0end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).


return to the top page