RosettaCodeData/Task/Random-number-generator--device-/FreeBASIC/random-number-generator--device-.freebasic
2016-12-05 23:44:36 +01: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