Question

How to generate N pairs of random digits in Pascal

Answer 1

program RandomDigitPairs;

procedure GenerateRandomPairs(N: Integer);
var
  i, firstDigit, secondDigit: Integer;
begin
  Randomize; // Seed the random number generator

  Writeln('Random pairs of digits:');
  for i := 1 to N do
  begin
    firstDigit := Random(10);  // Random digit between 0 and 9
    secondDigit := Random(10); // Random digit between 0 and 9
    Writeln('(', firstDigit, ', ', secondDigit, ')');
  end;
end;

begin
  GenerateRandomPairs(15);
end.





(*
run:
  
Random pairs of digits:
(9, 3)
(3, 3)
(4, 8)
(6, 5)
(7, 7)
(5, 0)
(6, 7)
(8, 8)
(1, 1)
(2, 1)
(2, 0)
(5, 3)
(0, 6)
(6, 0)
(6, 4)

*)

 

70+ SQL courses for beginners and professionals