RosettaCodeData/Task/Pseudo-random-numbers-Middle-square-method/Chipmunk-Basic/pseudo-random-numbers-middle-square-method.basic
2023-08-01 14:31:52 -07:00

5 lines
122 B
Text

10 semilla = 675248
20 for i = 1 to 5
30 print i;": ";semilla
31 semilla = ((semilla*semilla)/1000) mod 1000000
40 next i