18 lines
471 B
Plaintext
18 lines
471 B
Plaintext
100 :
|
|
110 REM BABBAGE PROBLEM
|
|
120 :
|
|
130 DEF FN ST(A) = N - INT (A) * INT (A)
|
|
140 N = 269696
|
|
150 N = N + 1000000
|
|
160 R = SQR (N)
|
|
170 IF FN ST(R) < > 0 AND N < 999999999 THEN GOTO 150
|
|
180 IF N > 999999999 THEN GOTO 210
|
|
190 PRINT "SMALLESt NUMBER WHOSE
|
|
SQUARE ENDS IN"; CHR$ (13);
|
|
"269696 IS ";R;", AND THE
|
|
SQUARE IS"; CHR$ (13);N
|
|
200 END
|
|
210 PRINT "THERE IS NO SOLUTION
|
|
FOR VALUES SMALLER"; CHR$(13);
|
|
"THAN 999999999."
|