дано пятизначное число X определить сколько в нем нечетных чисел паскаль

Дано пятизначное число X найти сколько в нем нечетных чисел паскаль 7 класс

Задать свой вопрос
1 ответ
//Pascal
var
  X: longint;
  count: byte;
begin
  write('Введите число X: ');
  readln(X);
  while X lt;gt; 0 do
  begin
    if X mod 10 mod 2 lt;gt; 0 then
      count := count + 1;
    X := X div 10;
  end;
  writeln('Нечетных = ', count);
  readln;
end.
Ванек Мореходов
я 7-ми классник
Анастасия
Здорово.
Марина Пераль-Сантамарта
я такового не проходил
Сергей Молеков
Твои трудности. Решение проще некуда.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт