Question

Написать программу на Паскале,которая выведет на экран те строки из текстового файла, которые являются палиндромами. Имя файла вводить с клавиатуры.

Answer 1

program proga_25_3;
var
 A: text;
s,p : string; 
i:integer;
 f:boolean;
begin 
  write('Введите имя и путь к файлу   '); 
  read(p); 
 assign(A, p); 
 reset(A);   
while not eof(A) do   
 begin       
 readln(A,s);                  
for i:=1 to length(s) div 2 do       
  if s[i]=s[length(s)-i+1] then          
 f:=true        
 else         
begin       
 f:=false;       
 break;       
 end;     
 if f then      
  writeln (S);   
 end;   
 close(A);
end.