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

Question

Информатика

Катюха

18 февраля, 09:54

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

+2

Ответы (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