===== PascalABC.NET =====
begin
var n: int64;
Read(n);
n := Abs(n); // на случай отрицательного числа
var k := 0;
while n > 0 do
var d := n mod 10;
if Odd(d) then
k += 1;
n := n div 10
end;
Print(k)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== 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.