Question

Напишите программу, определяющую количество нечетных цифр в десятичной записи введенного числа. Язык Паскаль, помогите

Answer 1

===== PascalABC.NET =====

begin

 var n: int64;

 Read(n);

 n := Abs(n); // на случай отрицательного числа

 var k := 0;

 while n > 0 do

 begin

   var d := n mod 10;

   if Odd(d) then

     k += 1;

   n := n div 10

 end;

 Print(k)

end.