43 lines
717 B
Plaintext
43 lines
717 B
Plaintext
(*$DEBUG- added, of course *)
|
|
program e( output );
|
|
|
|
const
|
|
DIGITS = 200;
|
|
|
|
type
|
|
arrayType = array[ 0..DIGITS ] of integer;
|
|
|
|
var
|
|
high, n, x : integer;
|
|
a : arrayType;
|
|
|
|
begin
|
|
high := DIGITS;
|
|
x := 0;
|
|
|
|
n := high - 1;
|
|
while n > 0 do begin
|
|
a[ n ] := 1;
|
|
n := n - 1;
|
|
end;
|
|
|
|
a[ 1 ] := 2;
|
|
a[ 0 ] := 0;
|
|
|
|
while high > 9 do begin
|
|
high := high - 1;
|
|
n := high;
|
|
while 0 <> n do begin
|
|
a[ n ] := x MOD n;
|
|
x := 10 * a[ n - 1 ] + x DIV n;
|
|
n := n - 1;
|
|
end;
|
|
|
|
if x >= 10 then write( x:2 ) else write( x:1 );
|
|
end;
|
|
|
|
writeln;
|
|
writeln( 'done' );
|
|
end.
|
|
|