Файлы Опции

[Talya]

Очень нужна ваша помощь! как можно решить данную задачу? Заранее огромное спасибо!
В текстовом файле подсчитать количество строк, которые начинаются и оканчиваются одной и той же буквой.

[Tan]

Вот о чём тебе говорит мисс_граффити :

uses crt;
Const filename = 'MyFile.txt';
var f : TEXT;
    S : string;
  sum,a : integer;
begin
assign (f,filename); {связываем виртуальный и физический файлы}
reset (f);
sum:=0;
   while not eof(f) do {пока не конец файла читаем строки}
     begin
          readln (f,s);
          a:=Length(s);
          if S[1] = S[a] then inc (sum); {cравниваем 1й символ строки и последний если да, в копилку}
    end;
Close (f);
writeln (sum); {содержание копилки на экран}
readkey;
end.

Сообщение отредактировано: Tan - 6.04.2007 11:22