Версия для печати темы

Автор: Лёха 13.12.2005 23:53

Дан текстовый файл. Определить сколько раз в нем встречается буква ‘е’.

Автор: ncgs 14.12.2005 0:13

Читаешь текст из файла как массив из строк. Во внешнем цикле пробегаешь по массиву из строк, во внутреннем по строке, если встречаешь "е", то к счётчику прибавляешь одын...

Автор: klem4 14.12.2005 0:30

uses crt;

var
   f : text;
   count : word;
   ch : char;
begin

   clrscr;

   assign(f,'c:\test.txt');

   reset(f);

   while not(eof(f)) do begin
      read(f,ch);
      if ch='e' then inc(count);
   end;

   writeln(count);

   close(f);

   readln
end.