42 lines
639 B
Plaintext
42 lines
639 B
Plaintext
program e;
|
||
|
||
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;
|
||
|
||
Write( x );
|
||
end;
|
||
|
||
writeln;
|
||
writeln( 'done' );
|
||
end.
|
||
|
||
|