Pascal ABC. Вводим четырёхзначное число, определить количество чётных цифр и вывести его...

Question

Pascal ABC. Вводим четырёхзначное число, определить количество чётных цифр и вывести его на экран.
Пример:
Вход 1212
На выходе 2

Я сделал:
program Test;
uses Crt;
var A,B,C,D,E: integer;
begintextbackground(8);
clrscr;
textcolor(15);
write('Введите 4-х значное число: ');
textcolor(13);
read(A);
C:=A div 1000;
B:=A div 100;
B:=A mod 10;
D:=A mod 100;
D:=A div 10;
E:=A mod 10;
E:=A mod 10;
А как дальше не знаю =(

Comments

ты задолбаешься там постоянно на 10 делить. Лучше через while

Answer 1

Var x,k: integer;
begin
read (x);
while x>1 do
    begin
    if x mod 2 = 0 then k:=k+1;
    x:=x div 10
    end;
write (k);
end.