Question

How to get the first and the last digit of a number in Pascal

Answer 1

program FirstAndLastDigit;

function GetFirstDigit(number: LongInt): Integer;
begin
  number := Abs(number);
  
  while number >= 10 do
    number := number div 10;
    
  GetFirstDigit := number;
end;

var
  number: LongInt ;
  firstDigit, lastDigit: Integer;
begin
  number := 98037;
  
  firstDigit := GetFirstDigit(number);
  WriteLn('First digit: ', firstDigit);

  lastDigit := number mod 10;
  WriteLn('Last digit: ', lastDigit);
end.




(*
run:
  
First digit: 9
Last digit: 7

*)

 

70+ SQL courses for beginners and professionals