В строке подсчитать количество гласных букв при помощи функции

@AskorBINka · Регистрация: 03.03.2013

Author24 — интернет-сервис помощи студентам

В строке подсчитать количество гласных букв при помощи функции. Строка записана по-русски и считывается из текстового файла.

@Kordn · 18.06.2013, 00:14

Pascal

var
  f: text;
 
function NumLet(var s: string): integer;
begin
  result := 0;
  for var i := 1 to length(s)
    do if lowCase(s[i]) in ['а', 'у', 'о', 'ы', 'и', 'э', 'я', 'ю', 'ё', 'е'] then inc(result);
end;
 
begin
  assign(f, 'text.txt');
  reset(f);
  var s: string;
  readln(f, s);
  writeln('Гласных букв в строке ', NumLet(s));
end.

@AskorBINka 0 / 0 / 0 Регистрация: 03.03.2013 Сообщений: 17
		1
	В строке подсчитать количество гласных букв при помощи функции 17.06.2013, 19:13. Показов 1237. Ответов 1 Метки нет (Все метки) В строке подсчитать количество гласных букв при помощи функции. Строка записана по-русски и считывается из текстового файла. 0

	18.06.2013, 00:14

В строке подсчитать количество гласных букв при помощи функции

Решение