16 lines
355 B
Plaintext
16 lines
355 B
Plaintext
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
|