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

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

Answer 2

//FPC 2.6.4
function _string(s: string):integer;
const z = ['А', 'Е', 'Ё', 'И', 'У', 'О', 'Ю', 'Ы', 'Я'];
var count, i: integer;
begin
count:=0;
for i:=1 to length(s) do if UPcase(s[i]) in z then inc(count);
result:=count;
end;

begin

end.