Составьте программу определения количества четных и нечетных цифр в записи данного натурально числа

Question

Информатика

Селивёрст

13 марта, 17:49

Составьте программу определения количества четных и нечетных цифр в записи данного натурально числа

+4

Ответы (2)

Знаете ответ на вопрос?

Инура · Answer 1

Program n1;

var a, kn, kh: longint;

begin

kn:=0;

kh:=0;

readln (a) ;

while a>0 do

begin

if (a mod 10) mod 2=0 then kh:=kh+1

else kn:=kn+1;

a: = a div 10;

end;

writeln ('кол-во четных: ', kh) ;

writeln ('нечетных: ', kn) ;

end.

Сюта · Answer 2

Var n, k1, k2:integer;

begin

write ('n = ') ;

readln (n) ;

k1:=0; k2:=0;

while n>0 do

begin

if n mod 2=0 then k1:=k1+1 else k2:=k2+1;

n:=n div 10;

end;

writeln ('Четных цифр - ', k1,', нечетных - ', k2) ;

end.

Пример:

n = 14568

Четных цифр - 3, нечетных - 2