Question

Cho tệp XAU.TXT chứa 1 xâu ký tự

Viết chương trình đọc dữ liệu từ tệp XAU.TXT ra xâu S

Kiểm tra xâu S có là xâu đối xứng ?

M.n ai bt chỉ giúp e với

Answer 1

uses crt;

const fi='xau.txt'

var f1:text;

s:string;

i,d,kt:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,s);

d:=length(s);

kt:=0;

for i:=1 to d do

if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln('Xau doi xung')

else writeln('Xau khong doi xung');

readln;

end.