Question

Составьте программу определения количества четных и нечетных цифр в записи данного натурального числа.

Answer 1

program CountEvenOddDigits;
var   Number, Digit, EvenCount, OddCount: integer;
begin   writeln('Введите натуральное число: ');   readln(Number);
     EvenCount := 0;   OddCount := 0;
     while Number > 0 do   begin     Digit := Number mod 10;     if Digit mod 2 = 0 then       EvenCount := EvenCount + 1     else       OddCount := OddCount + 1;     Number := Number div 10;   end;
     writeln('Количество четных цифр: ', EvenCount);   writeln('Количество нечетных цифр: ', OddCount);
     readln; end.