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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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