Переписать в новый текстовый файл те строки исходного, которые начинаются и заканчиваются одним и тем же символом

@golevkolya · Регистрация: 16.11.2011

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

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

@КонецСвета · 23.04.2012, 04:17

Pascal

var  f,g: text;
     s: string;
begin
assign(f,'C:\in.txt');
assign(g,'C:\out.txt');
reset(f);
rewrite(g);
while not (eof(f)) do
      begin
      readln(f,s);
      if s[1]=s[length(s)]
         then writeln(g,s);
      end;
close(f);
close(g);
end.

@golevkolya 0 / 0 / 0 Регистрация: 16.11.2011 Сообщений: 28
		1
	Переписать в новый текстовый файл те строки исходного, которые начинаются и заканчиваются одним и тем же символом 22.04.2012, 21:20. Показов 1987. Ответов 1 Метки нет (Все метки) Дан текстовый файл. Создать новый текстовый файл, записав в него те строки исходного файла, которые начинаются и заканчиваются одним и тем же символом. 0

	23.04.2012, 04:17

Переписать в новый текстовый файл те строки исходного, которые начинаются и заканчиваются одним и тем же символом

Решение