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

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

---

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

---

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

---

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

---

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