Question

Дано натуральное число x. Верно ли, что в его записи одинаковое число чёрных и не четное цифр. ПАСКАЛЬ АВС.NET пост и пред условия

Answer 1

// определение числа чётных и нечётных цифр в числе

var n, a, b : integer;

begin
a:=0; //чётные
b:=0; //нечётные
readln (n);

    if n<0 then
        n:=-n; // уничтожение знака числа
    repeat
        if ((n mod 10) mod 2<>0) then
          a:= a+1
        else
          b:= b+1;
        n:= n div 10; // удаление последней цифры числа
    until n=0;
    writeln ('Чётных - '+b);
    writeln ('Нечётных - '+a);

end.