Задать вопрос Регистрация
Помочь другим

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

Ответы 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years