Question

How to generate 5 digits random numbers in Pascal

Answer 1

program RandomFiveDigitNumbers;
 
uses
  SysUtils; // For Randomize

var
  i: Integer;
  randomNumber: Longword;
 
begin
  Randomize;  // Initialize the random number generator
   
  for i := 1 to 10 do
  begin
    // Generate a random number between 10000 and 99999
    randomNumber := Random(90000) + 10000;
     
    Writeln(randomNumber);
  end;
end.
 
 
    
(*
run:
    
73949
89714
97991
76943
10030
31836
57323
60258
30934
18753
    
*)

 

70+ SQL courses for beginners and professionals