Question

How to select random two digits from anywhere in a number with Pascal

Answer 1

program RandomTwoDigits;

function GetRandomTwoDigits(number: longint): string;
var
  numStr: string;
  i, j: integer;
begin
  str(number, numStr);  { convert number to string }

  if length(numStr) < 2 then
  begin
    GetRandomTwoDigits := 'Error: number must have at least 2 digits';
    exit;
  end;

  i := random(length(numStr)) + 1; 
  repeat
    j := random(length(numStr)) + 1;
  until j <> i;

  GetRandomTwoDigits := numStr[i] + numStr[j];
end;

var
  num: longint;
  randomTwo: string;
begin
  randomize;

  num := 1234567;
  randomTwo := GetRandomTwoDigits(num);

  writeln('Random two digits: ', randomTwo);
end.




(*
run:

Random two digits: 53

*)

 

70+ SQL courses for beginners and professionals