Переписать в другой файл все строки, читающиеся одинаково с начала и с конца.

@flashakred · Регистрация: 09.03.2011

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

Дан текстовый файл. Переписать в другой файл все строки, читающиеся одинаково с начала и с конца.

Задачка так то проста, но не могу понять как оформить данную часть

Pascal

1	читающиеся одинаково с начала и с конца.

Заранее спасибо

@Lord_Voodoo · 26.06.2011, 09:47

flashakred, примеры таких слов: боб, дед... если тебе именно это непонятно... их еще палиндромами называют

@flashakred · 26.06.2011, 09:53 **[ТС]**

Эт я понял как это реализовать?

@Puporev · 26.06.2011, 11:43

Pascal

reset(f);
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s1:='';
  for i:=length(s) downto 1 do
  s1:=s1+s[i];
  if s1=s then writeln(g,s);
 end;

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	26.06.2011, 09:47	2
	flashakred, примеры таких слов: боб, дед... если тебе именно это непонятно... их еще палиндромами называют 0

@flashakred 0 / 0 / 1 Регистрация: 09.03.2011 Сообщений: 5
	26.06.2011, 09:53 [ТС]	3
	Эт я понял как это реализовать? 0

Опции темы