Question

How to find the digit next to a given digit in a number with Pascal

Answer 1

program DigitFinder;

uses
  SysUtils; // Format

function FindNextDigit(number, target: Longint): Longint;
var
  current, next: Integer;
begin
  next := -1;

  while number > 0 do
  begin
    current := number mod 10;
    number := number div 10;

    if current = target then
    begin
      FindNextDigit := next;
      Exit;
    end;

    next := current;
  end;

  FindNextDigit := -1;
end;

var
  number, target, result: Longint;

begin
  number := 8902741;
  target := 2;

  result := FindNextDigit(number, target);

  if result <> -1 then
    WriteLn(Format('The digit after %d in %d is %d.', [target, number, result]))
  else
    WriteLn(Format('The digit %d is not found or has no next digit in %d.', [target, number]));
end.



(*
run:

The digit after 2 in 8902741 is 7.

*)

 

70+ SQL courses for beginners and professionals