ИнформатикаДано натуральное число. Определитьколичество четных цифр в нем. Составное...

Question

Информатика
Дано натуральное число. Определитьколичество четных цифр в нем. Составное условие и более одного неполного
условного оператора не использовать. Паскаль

Comments

Паскаль

Answer 1

Вот Вам совсем без условий:

Var a,n : Integer;
Begin
  n:=0;
  Readln(a);
  While a>0 do
  Begin
    Inc(n,Ord(not Odd(a mod 10)));
    a:=a div 10;
  end;
  Writeln('Чётных цифр: ',n);
end.

Comments

Odd - функция определения нечётности заданного параметра, т.е. возвращает логическое TRUE при нечётном значении

---

Это я знаю, а что такое ord и odd нет

---

odd уже написал

---

Ord из справки к Паскалю: function Ord(a: перечислимый тип): integer;
Возвращает порядковый номер значения a

---

Спасибо

---

А ты бы мог написать без этой строчки, мы просто такого еще не изучали

---

можно так: n:=n+Ord(not Odd(a mod 10));

---

Мы ord и odd не изучали

---

ну тогда с условием: If a mod 10 mod 2 = 0 then n:=n+1;

---

Спасибо огромное, очень выручил