Найти количество гласных в текстовых файлах - Pascal ABC
Формулировка задачи:
надо Найти количество гласных в текстовых файлах и вывести результат на черный экран. Использовать процедуру. написал вот такую, но вылетает с ошибкой 103
Решение задачи: «Найти количество гласных в текстовых файлах»
textual
Листинг программы
program p54; const glas = ['a', 'e', 'u', 'i', 'o', 'A', 'E', 'U', 'I', 'O']; var t: text; procedure glasnie(var f: text); var n: integer; s: char; begin n := 0; reset(f); while not eof(f) do begin read(f, s); if s in glas then inc(n); end; close(f); writeln('kol-vo:', n); end; begin assign(t, 't.in'); glasnie(t); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д