37 lines
693 B
Plaintext
37 lines
693 B
Plaintext
|
program e
|
||
|
|
integer*2 high, n, x
|
||
|
|
integer*2 a(200)
|
||
|
|
|
||
|
|
high = 200
|
||
|
|
x = 0
|
||
|
|
n = high - 1
|
||
|
|
|
||
|
|
150 if ( n .le. 0 ) goto 200
|
||
|
|
a( n + 1 ) = 1
|
||
|
|
n = n - 1
|
||
|
|
goto 150
|
||
|
|
|
||
|
|
200 a( 2 ) = 2
|
||
|
|
a( 1 ) = 0
|
||
|
|
220 if ( high .le. 9 ) goto 400
|
||
|
|
high = high - 1
|
||
|
|
n = high
|
||
|
|
240 if ( n .eq. 0 ) goto 300
|
||
|
|
a( n + 1 ) = MOD( x, n )
|
||
|
|
x = ( 10 * a( n ) ) + ( x / n )
|
||
|
|
n = n - 1
|
||
|
|
goto 240
|
||
|
|
300 if ( x .ge. 10 ) goto 320
|
||
|
|
write( *, 2000 ) x
|
||
|
|
goto 220
|
||
|
|
320 write( *, 2001 ) x
|
||
|
|
goto 220
|
||
|
|
400 write( *, 2010 )
|
||
|
|
2000 format( '+', I1 )
|
||
|
|
2001 format( '+', I2 )
|
||
|
|
2010 format( ' done' )
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
|