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

mirimyan79 mirimyan79    3   17.06.2019 20:00    0

Ответы
alamez69 alamez69  14.07.2020 17:52
Var  n: longint;
  k: integer;
begin 
 k:=0; 
 write('Введите число: '); 
 readln(n); 
 while n>0 do 
 begin 
   if n mod 10 mod 2<>0 then 
    k:=k+1; 
   n:=n div 10; 
 end; 
 writeln('В числе  ',k,' нечетных цифр'); 
 readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика