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