RosettaCodeData/Task/Babbage-problem/TI-83-BASIC/babbage-problem-2.basic

6 lines
67 B
Plaintext

536→N
While remainder(N*N,1000000)≠269696
i+8→N
End
Disp N