12 lines
367 B
Plaintext
12 lines
367 B
Plaintext
10 CLS
|
|
20 DEF FN ST(A#) = N# - INT (A#) * INT (A#)
|
|
30 N# = 269696!
|
|
40 N# = N# + 1000000!
|
|
50 R# = SQR(N#)
|
|
60 IF FN ST(R#) <> 0 AND N# < 999999999# THEN GOTO 40
|
|
70 IF N# > 999999999# THEN GOTO 110
|
|
80 PRINT "The smallest number whose square ends in 269696 is:";R#
|
|
90 PRINT "It's square is:";N#
|
|
100 END
|
|
110 PRINT "There is no solution for values smaller than 999999999."
|