Запишите во второй файл все строки первого файла, начинающиеся с заданного слова

@Артём33 · Регистрация: 27.04.2010

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

Помогите пожалуйста!
Создайте текстовый файл. Запишите во второй файл все строки первого файла, начинающиеся с заданного слова.
(сначало создать 2 текстовых файла не через паскаль, в один записав разные строчки)

@Law[L]esS · 17.05.2010, 20:10

Pascal

var
 f,f2:text;
 s,s1,s2:string;
begin
 readln(s);
 assign(f,'kot.txt');
 reset(f);
 assign(f2,'kot2.txt');
 rewrite(f2);
 while not eof(f) do begin
   readln(f,s2);
   s1:= copy(s2,1,pos(' ',s2)-1);
   if s1 = s then writeln(f2,s2);
 end;
 close(f);
 close(f2);
end.

@Артём33 3 / 3 / 1 Регистрация: 27.04.2010 Сообщений: 318
		1
	Запишите во второй файл все строки первого файла, начинающиеся с заданного слова 17.05.2010, 19:45. Показов 1359. Ответов 1 Метки нет (Все метки) Помогите пожалуйста! Создайте текстовый файл. Запишите во второй файл все строки первого файла, начинающиеся с заданного слова. (сначало создать 2 текстовых файла не через паскаль, в один записав разные строчки) 0

	17.05.2010, 20:10

Запишите во второй файл все строки первого файла, начинающиеся с заданного слова

Решение