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*
Комментарий*

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

Алена-Петрова285
Katkova
mpityk
ivanrancev
Petrovich
Андреевнатест707
Olegovich Nikolaevna
Oksana-Kirakosyan1301
bufetkonfet53
shumilovs7252
tsigankova2018
wwladik2606222
dream2366
Юлия-Ольга1313
Mamikin