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

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

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

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

ну тогда с условием: If a mod 10 mod 2 = 0 then n:=n+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.