Question

How to check if a number has zero in the center in Pascal

Answer 1

program CheckZeroInCenter_Pascal;

Uses sysutils;

function HasZeroInCenter(number: LongInt): Boolean;
var
  numStr: String;
  centerIndex: Integer;
begin
  numStr := IntToStr(number);

  if Length(numStr) mod 2 = 0 then
    Exit(False); // Even length = no center digit
  
  centerIndex := Length(numStr) div 2;

  HasZeroInCenter := numStr[centerIndex + 1] = '0'; 
end;


var
  number: longInt;
begin
  number := 3720961;

  if HasZeroInCenter(number) then
    WriteLn('yes')
  else
    WriteLn('no');
end.



(*
run:
  
yes
  
*)

 

70+ SQL courses for beginners and professionals