RosettaCodeData/Task/Random-number-generator-device-/FreeBASIC/random-number-generator-device-.basic
2023-07-01 13:44:08 -04:00

10 lines
165 B
Text

' FB 1.05.0 Win64
Randomize , 5
'generate 10 cryptographic random integers in the range 1 To 100
For i As Integer = 1 To 10
Print Int(Rnd * 100) + 1
Next
Sleep