найти симетрию

[Lev.F]

Решите плиз Найти самое длиное симитричное слово в заданом предложении.

[Lev.F]

кто нибудь знает как это делать

[p51x]

В чем конкретные затруднения? Считать слово или по буквам его проверить?

[Lev.F]

считать слово,я просто вобще не монимаю как делать

[Lev.F]

я ещё новичок в этом деле

[Lev.F]

я ещё новичок в этом деле

[Lev.F]

Это надо сделать v Borland Pascale

[DoDge_VipeR]

author Inadequate

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{дописать нужные}
{функция проверки на палиндром}
function Pa(s:string):boolean;
var
  i:integer;
  fl:boolean;
begin
  fl:=true;
  for i:=1 to length(s)div 2 do
    if s[i]<>s[length(s)-i+1] then
      fl:=false;
  Pa:=fl
end;
var
  s,temp,max:string;
  i,ps:integer;
begin
  clrscr;
  writeln('Введите строку...');
  readln(s);
  temp:='';
  ps:=0;
  max:='';
  {пробегаем всю строку посимвольно}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if ((s[i] in dividers) or (i=length(s))) and (temp<>'') then
    begin
      if Pa(temp) and (Length(temp)>Length(max)) then
      begin
        max:=temp;
        ps:=pos(temp,s)
      end;
      temp:='';
    end;
  end;
  if max<>'' then
    writeln('Самое длинное слово палиндром: ',max,' Его позиция: ',ps)
  else
    writeln('В данной строке нет слов палиндромов.')
end.