Question

How to check if a number is lead number (sum of even digits is equal to the sum of odd digits) in Pascal

Answer 1

program LeadNumberCheck;

function IsLeadNumber(num: LongInt): boolean;
var
  evenSum, oddSum, digit: integer;
begin
  evenSum := 0;
  oddSum := 0;

  while num > 0 do
  begin
    digit := num mod 10;           // Extract the last digit
    if digit mod 2 = 0 then
      evenSum := evenSum + digit   // Add to even sum if digit is even
    else
      oddSum := oddSum + digit;    // Add to odd sum if digit is odd

    num := num div 10;             // Remove the last digit
  end;

  IsLeadNumber := evenSum = oddSum; // Check if sums are equal
end;

var
  number: LongInt;
begin
  number := 615341;

  if IsLeadNumber(number) then
    writeln(number, ' is a lead number.')  
  else
    writeln(number, ' is not a lead number.'); 

  readln;
end.



(*
run:

615341 is a lead number.

*)

 

70+ SQL courses for beginners and professionals