Информатика
Дано натуральное число. Определитьколичество четных цифр в нем. Составное условие и более одного неполного
условного оператора не использовать. Паскаль
Ответы на вопрос
Ответил APALoff
0
Вот Вам совсем без условий:
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.
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.
Ответил арина1221
0
А ты бы мог написать без этой строчки, мы просто такого еще не изучали
Ответил APALoff
0
можно так: n:=n+Ord(not Odd(a mod 10));
Ответил арина1221
0
Мы ord и odd не изучали
Ответил APALoff
0
ну тогда с условием: If a mod 10 mod 2 = 0 then n:=n+1;
Ответил арина1221
0
Спасибо огромное, очень выручил
Новые вопросы
Українська література,
2 года назад
Химия,
8 лет назад