Xâu palidrome vd: 21a12
PROGRAM CT73;
USES crt;
VAR i, n: BYTE;
s,B: STRING;
BEGIN
clrscr;
Write('Nhap xau : '); Readln(s);
N:=length(s);
B:='';
FOR i:=N DOWNTO 1 DO B:=B+s[i];
IF s=B THEN Write('Xau palidrome') ELSE Write('Khong phai xau Palidrome');
Readln
END.
Download: http://www.mediafire.com/?pii1muf2965fl2q
PROGRAM CT73;
USES crt;
VAR i, n: BYTE;
s,B: STRING;
BEGIN
clrscr;
Write('Nhap xau : '); Readln(s);
N:=length(s);
B:='';
FOR i:=N DOWNTO 1 DO B:=B+s[i];
IF s=B THEN Write('Xau palidrome') ELSE Write('Khong phai xau Palidrome');
Readln
END.
Download: http://www.mediafire.com/?pii1muf2965fl2q