1 REM https://rosettacode.org/wiki/Babbage_problem 10 LET n = 2 20 REM do 30 LET n = n + 2 40 IF (n ^ 2) MOD 1000000 <> 269696 THEN 20 50 PRINT "The smallest number whose square ends in 269696 is "; n 60 PRINT "Its square is "; n * n Return to Example Index