legezin
?>

Нaписать программy, подсчитывающую количество четных и нечетных цифр в числе. Использовать оператор с информатикой!

Информатика

Ответы

blizzardtap641

var a,b,c: longint;

begin

Read(a);

b:=0; c:=0;

while a<>0 do begin

if a mod 2=0 then b:=b+1

else c:=c+1; a:=a div 10; end;

Write(b, ' ', c);

end.

//a – число, вводящиеся с клавиатуры

//b – количество чётных цифр в числе

//с – количество нечётных цифр в числе

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Нaписать программy, подсчитывающую количество четных и нечетных цифр в числе. Использовать оператор с информатикой!
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

varvara82193
alexeylipatov
tanysha1990
ilyatamurov
Филипп1054
SAMSCHOOL96
zipylin
Попов1946
tyrnaus
kuliba
afilippov3321
​
alapay
qwe54344
makeeva-nataliya60
whitewhit90
▲