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;А как дальше не знаю =(

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.