Question

Разработать функцию для решения задачи обработки строк - подсчитать количество гласных букв в строке. Паскаль.

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function Glas(s:string):=s.Where(x->pos(UpCase(x),'АЕЁИОУЫЭЮЯ')>0).Count;

begin
  var s:=ReadlnString('Введите текст');
  Writeln('Гласных: ',Glas(s))
end.

Пример:
Введите текст Это мой примерчик для подсчета
Гласных: 10