RosettaCodeData/Task/Babbage-problem/TAV/babbage-problem-1.tav
2026-04-30 12:34:36 -04:00

6 lines
173 B
Text

main (p):+
q = 269696 \ ending to be found
m = 1000000 \ corresponding modulus
for i = from 1 upto m^2
if i^2 %% m = q: break
print i, i^2, q