uses crt; var s:string; function dx(s:string):boolean; var i:longint; begin dx:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then dx:=false; end; begin clrscr; write('Nhap 1 xau: ');readln(s); writeln(dx(s)); readln end.
uses crt; var s:string; function dx(s:string):boolean; var i:longint; begin for i:=1 to length(s) do if s[i]<>s[length(s)-i+1] then exit(false); exit(true); end; begin clrscr; readln(s); write(dx(s)); readln; end.
