Question

How to generate 20 digits random number in Pascal

Answer 1

program Random20DigitNumber;

uses
  SysUtils; // IntToStr

var
  i: Integer;
  digit: Integer;
  randomNumber: string;
begin
  Randomize;
  randomNumber := '';
  // First digit: non-zero to ensure 20-digit number doesn't start with 0
  digit := Random(9) + 1;
  randomNumber := IntToStr(digit);

  // Remaining 19 digits
  for i := 2 to 20 do
  begin
    digit := Random(10);
    randomNumber := randomNumber + IntToStr(digit);
  end;

  Writeln('Random 20-digit number: ', randomNumber);
end.



(*
run:

Random 20-digit number: 80271280283212950423
 
*)

 

70+ SQL courses for beginners and professionals