Текстовый файл

@Alexandr_Merx · Регистрация: 22.11.2013

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

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

@CodeR · 01.12.2013, 13:19

Pascal

Var f:text;
    s:string;
    k:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      if s<>'' then 
       if s[1]=s[Length(s)] then inc(k);
    End;
    writeln('Таких строк = ',k);
    Close(f);
    readln;
End.

@Alexandr_Merx 0 / 0 / 1 Регистрация: 22.11.2013 Сообщений: 6
		1
	Текстовый файл 01.12.2013, 12:40. Показов 878. Ответов 1 Метки нет (Все метки) Задан текстовый файл. Посчитать кол-во строк, что начинаются и заканчиваются одинаковыми буквами. Помогите пожалуйста! 0

	01.12.2013, 13:19

Текстовый файл

Решение