Даны текстовый файл и строка s. Получите все строки файла f, содержащие в качестве фрагмента заданную строку s

@RomeoSFS · Регистрация: 23.09.2012

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

Очень надо помогите!
Даны текстовый файл и строка s. Получите все строки файла f, содержащие в качестве фрагмента заданную строку s.

@CodeR · 05.12.2012, 12:49

Pascal

Var f:text;
    s,st:string;
Begin
    Assign(f,'in.txt');Reset(f);
    write('Введите строку s: ');readln(s);
    While not Eof(f) do
    Begin
      readln(f,st);
      if Pos(s,st)>0 then writeln(st);
    End;
    Close(f);
End.

@RomeoSFS 0 / 0 / 2 Регистрация: 23.09.2012 Сообщений: 130
		1
	Даны текстовый файл и строка s. Получите все строки файла f, содержащие в качестве фрагмента заданную строку s 05.12.2012, 12:14. Показов 2482. Ответов 1 Метки нет (Все метки) Очень надо помогите! Даны текстовый файл и строка s. Получите все строки файла f, содержащие в качестве фрагмента заданную строку s. 0

	05.12.2012, 12:49

Опции темы

Даны текстовый файл и строка s. Получите все строки файла f, содержащие в качестве фрагмента заданную строку s

Решение