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

Ωμza Ωμza    3   20.12.2019 23:47    0

Ответы
rom32кат rom32кат  10.10.2020 22:11

===== 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.


Напишите программу, определяющую количество нечетных цифр в десятичной записи введенного числа. язык
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика