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

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

Задать свой вопрос
Ivan Tamozov
все решается через While для 8 класса
1 ответ
Var  n: longint;
  k: integer;
begin 
 k:=0; 
 write('Введите число: '); 
 readln(n); 
 while ngt;0 do 
 begin 
   if n mod 10 mod 2lt;gt;0 then 
    k:=k+1; 
   n:=n div 10; 
 end; 
 writeln('В числе  ',k,' нечетных цифр'); 
 readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт