Написать код на языке паскаль. подсчитать количество чётных цифр в исходной символьной строке и распечатать все, кроме пробелов, знаков операций и знаков препинания.

робингуд228 робингуд228    3   14.07.2019 19:20    3

Ответы
ndiana2402 ndiana2402  03.10.2020 04:15
// PascalABC.NET 3.0, сборка 1128
begin
  var Delim:=' .,+-*/;:()[]='; // исключаемые
  var s:=ReadString('Введите строку:');
  s.Where(x->Pos(x,Delim)=0).Println('');
  Writeln('Четных цифр: ',s.Where(x->Pos(x,'02468')>0).Count)
end.

Тестовое решение:
Введите строку: This is a formiula: y:=2.18=3*14*sin(6.23*x+7.04);
Thisisaformiulay218314sin623x704
Четных цифр: 7
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы