15 lines
380 B
Text
15 lines
380 B
Text
PROGRAM "Babbage problem"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
number = 524
|
|
DO
|
|
number = number + 2
|
|
LOOP UNTIL ((number ** 2) MOD 1000000) = 269696
|
|
PRINT "The smallest number whose square ends in 269696 is: "; number
|
|
PRINT "It's square is "; number ** 2
|
|
PRINT "It's square is "; number * number
|
|
END FUNCTION
|
|
END PROGRAM
|