Question

How to select random two consecutive digits from a number in Pascal

Answer 1

program RandomTwoDigits;

uses
  SysUtils;  { for IntToStr }

function GetRandomTwoDigits(num: LongInt): string;
var
  s: string;
  start: Integer;
begin
  s := IntToStr(num);

  if Length(s) < 2 then
  begin
    GetRandomTwoDigits := 'Error: number must have at least 2 digits';
    Exit;
  end;

  start := Random(Length(s) - 1) + 1;  { Pascal strings are 1-based }
  GetRandomTwoDigits := Copy(s, start, 2);
end;

var
  num: LongInt;
  randomTwo: string;
begin
  Randomize; 

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

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



(*
run:

Random two digits: 45

*)

 

70+ SQL courses for beginners and professionals