|
|
back to boardprogram de;
var
s:string;
i,j,l,z,ost:integer;
q:boolean;
mas:array[1..20000] of char;
begin
readln(s);
l:=length(s);
for i:=1 to l do
mas[i]:=s[i];
if l=1 then writeln(mas[i]) else
if (l=2) and (mas[1]=mas[2]) then writeln(mas[1],'',mas[2])
else
begin
q:=true;
for i:=1 to l div 2 do
if mas[i]<>mas[l-i+1] then q:=false;
if q then
begin
for i:=1 to l do
write(mas[i]);
end
else
begin
for i:=l div 2 to l do
begin
q:=true;
z:=0;
ost:=0;
while z+i<>l do
begin
inc(z);
if mas[i-z+1]<>mas[i+z] then q:=false;
end;
if q then ost:=1;
z:=0;
if q<>true then
begin
q:=true;
while z+i<>l do
begin
inc(z);
if mas[i-z]<>mas[i+z] then q:=false;
end;
end;
if q then
begin
for j:=1 to i do
write(mas[j]);
if i<>l then i:=i+ost;
for j:=i-1 downto 1 do
write(mas[j]);
break;
end;
end;
end;
end;
readln;
end. Da ti idiot, blia!!
var s1,s2:array[1..10000] of char;
i,j,k,n,g,h:integer;
noans:boolean;
ch : char;
begin
read(ch);
while ch in ['a'..'z','A'..'Z','0'..'9'] do begin
inc(i);
s1[i]:=ch;
read(ch);
end;
n:=i;
if n=0 then writeln(' ');
if n=1 then writeln(s1[1],s1[1]);
if n>1 then begin
for j:=2 to n do
begin
noans:=true;
h:=n;
if s1[j]=s1[n] then begin
noans:=false;
for k:=j to ((n-j) div 2)+j-1 do begin
if s1[k]=s1[h] then
h:=h-1
else begin
noans:=true;
break;
end; end;
end;
if not noans then begin
for i:=1 to n do
write(s1[i]);
for g:=(j-1) downto 1 do
write(s1[g]);
halt;
end;
end;
end;
end. butcherFac you xitro viebannii 4to-li.
Tebe cpokoino ne givetcia.
Tebia B realnoi gizni 4asto obigaut.
Po4emy B tebe stolko zlosti??????? |
|
|
