RosettaCodeData/Task/Pseudo-random-numbers-Middle-square-method/Amazing-Hopper/pseudo-random-numbers-middle-square-method-1.hopper
2023-12-16 21:33:55 -08:00

9 lines
158 B
Text

#include <basico.h>
algoritmo
s=675248, i=4
iterar
#( s = int(s ^2 / 1000 % 1000000) )
s, NL, imprimir
mientras ' i-- '
terminar