ПОМОГИТЕ НАПИСАТЬ КОД НА ЯЗЫКЕ ПАСКАЛЬ. ПОЖАЛУЙСТА!!!!Подсчитать количество чётных цифр в

ПОМОГИТЕ НАПИСАТЬ КОД НА ЯЗЫКЕ ПАСКАЛЬ. ПОЖАЛУЙСТА!!!!
Подсчитать количество чётных цифр в начальной символьной строке и распечатать все, кроме пробелов, символов операций и символов препинания.

Задать свой вопрос
Кирилл Римарчук
Хорошо бы еще знать, что в этой символьной строке содержится...
Илья Прусаченков
И еще - какие конкретно знаки числятся знаками операций и знаками препинания? Их все надобно перечислить, поэтому что на клавиатуре очень много разных символов...
1 ответ
// PascalABC.NET 3.0, сборка 1128
begin
  var Delim:=' .,+-*/;:()[]='; // исключаемые
  var s:=ReadString('Введите строчку:');
  s.Where(x-gt;Pos(x,Delim)=0).Println('');
  Writeln('Четных цифр: ',s.Where(x-gt;Pos(x,'02468')gt;0).Count)
end.

Тестовое решение:
Введите строку: This is a formiula: y:=2.18=3*14*sin(6.23*x+7.04);
Thisisaformiulay218314sin623x704
Четных цифр: 7
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт