Question

напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран количество четных цифр. Написать программу с помощью цикла while или repeat или for. Помогите пожалуйста.

Answer 1

var
  c:char;
  count:integer;
begin
  readln(c);
  while c <> '*' do
  begin

    case c of

      '2', '4', '6', '8' : count := count + 1;

    end;
    readln(c);
  end;
  writeln('count = ', count);
end.