Найдите самое длинное симметричное слово заданного предложения — Pascal(Паскаль)

uses crt;
var s,sl,sn,sp,smax: string;
    i,j,dmax: byte;
begin
write('s=');
readln(s);
s:=s+' '; sl:=''; sn:='';
dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          if length(sl) mod 2=0 then
             begin
             for j:=1 to length(sl) do
                 begin
                 sn:=sn+upcase(sl[j]);
                 sp:=upcase(sl[j])+sp;
                 end;
             if (sp=sn) and (dmax<length(sp)) then
                begin
                dmax:=length(sp);
                smax:=sl;
                end;
             end;
          sl:=''; sn:=''; sp:='';
          end;
writeln('Самое длинное симметричное слово "',smax,'", длиной в ',dmax);
end.

Leave a Comment

+ 32 = 39