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

Question

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

Answer 1

//Pascal
var
  X: longint;
  count: byte;
begin
  write('Введите число X: ');
  readln(X);
  while X <> 0 do
  begin
    if X mod 10 mod 2 <> 0 then
      count := count + 1;
    X := X div 10;
  end;
  writeln('Нечетных = ', count);
  readln;
end.

Comments

я 7-ми классник

---

Здорово.

---

я такого не проходил

---

Твои проблемы. Решение проще некуда.