В заданном файле найти и напечатать строки заголовка. Строкой заголовка считать строку, до и после которой оставлена хотя бы одна пустая строка.

@Mouse4824 · Регистрация: 11.06.2011

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

@Mr.Y · 17.06.2011, 11:46

Pascal

Const
 nmax = 100;
Var
 a:text;
 x:string;
 i,j:integer;
 s:array [1..nmax] of string;
Begin
 assign(a,'c:\file.txt');
 reset(a);
 j:=1;
 While not eof(a) do
  Begin
   readln(a,x);
   s[j]:=x;
   inc(j);
  End;
 For i:=2 to j-2 do
  If (s[i-1] = '') and (s[i] <> '') and (s[i+1] = '') then writeln(s[i]);
 close(a);
End.

@Mouse4824 0 / 0 / 0 Регистрация: 11.06.2011 Сообщений: 9
		1
	В заданном файле найти и напечатать строки заголовка. Строкой заголовка считать строку, до и после которой оставлена хотя бы одна пустая строка. 17.06.2011, 11:13. Показов 1765. Ответов 1 Метки нет (Все метки) В заданном файле найти и напечатать строки заголовка. Строкой заголовка считать строку, до и после которой оставлена хотя бы одна пустая строка. 0

	17.06.2011, 11:46

В заданном файле найти и напечатать строки заголовка. Строкой заголовка считать строку, до и после которой оставлена хотя бы одна пустая строка.

Решение