Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран количество четных цифр. Написать программу с помощью цикла while или repeat или for. Помогите пожалуйста.
Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран количество четных цифр. Написать программу с помощью цикла while или repeat или for. Помогите пожалуйста.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы