Текстовый файл. Подсчитать количество строк, заканчивающихся заданной буквой

Exzotik

Помогите пожалуйста написать данную программу.Заранее спасибо.
2 ответа

Exzotik

Дан текстовый файл.Подсчитать количество строк заканчивающихся заданной буквой
const
  Direction = 'C:\File.txt';
var
  FileTxt: Text;
  Count: Byte;
  Str: String;
  Chr: Char;
begin
  writeln('Содержимое файла: ');
  Assign(FileTxt, Direction);
  Reset(FileTxt);
  while not EOF(FileTxt) do
  begin
    readln(FileTxt, Str);
    writeln(Str);
  end;
  Close(FileTxt);
  Assign(FileTxt, Direction);
  Reset(FileTxt);
  write('Введите букву: ');
  readln(Chr);
  while not EOF(FileTxt) do
  begin
    readln(FileTxt, Str);
    if Str[Length(Str)] = Chr then
      Inc(Count);
  end;
  Close(FileTxt);
 writeln('Кол-во строк, оканчивающихся буквой "', Chr, '": ', Count);
end.


Exzotik

Большое спасибо!