mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Babbage-problem/Fortran/babbage-problem-1.f

7 lines
120 B
Forth
Raw Permalink Blame History

DO 3 N=1,99736
IF(MODF(N*N,1000000)-269696)3,4,3
3 CONTINUE
4 PRINT 5,N
5 FORMAT(I6)
STOP
Reference in New Issue View Git Blame Copy Permalink