Munchausen numbers: Difference between revisions
→{{header|Fortran}}: Section added
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) (→{{header|Fortran}}: Section added) |
||
Line 703:
The option to show Fōrmulæ programs and their results is showing images. Unfortunately images cannot be uploaded in Rosetta Code.
=={{header|Fortran}}==
{{trans|360 Assembly}}
===Fortran IV===
<lang fortran>C MUNCHAUSEN NUMBERS - FORTRAN IV
DO 2 I=1,5000
IS=0
II=I
DO 1 J=1,4
ID=10**(4-J)
N=II/ID
IR=MOD(II,ID)
IF(N.NE.0) IS=IS+N**N
1 II=IR
2 IF(IS.EQ.I) WRITE(*,*) I
END </lang>
{{out}}
<pre>
1
3435
</pre>
===Fortran 77===
<lang fortran>! MUNCHAUSEN NUMBERS - FORTRAN 77
DO I=1,5000
IS=0
II=I
DO J=1,4
ID=10**(4-J)
N=II/ID
IR=MOD(II,ID)
IF(N.NE.0) IS=IS+N**N
II=IR
END DO
IF(IS.EQ.I) WRITE(*,*) I
END DO
END </lang>
{{out}}
<pre>
1
3435
</pre>
=={{header|FreeBASIC}}==
| |||