Знайти кількість парних цифр у числі використовуючи цикл «while…..do» у паскаль
Найти количиство четных цифр в числе используя цикл «while…..do» в паскаль

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

Var

A,N:integer;

Begin

WriteLn(‘Введите целое число’);

Read(A);

N:=0;

While A>0 do

   Begin

   if A mod 2 = 0 then N:=N+1;

   A:=A div 10;

   End;

WriteLn(N);

End.