Bài 7. Câu lênh lặp

PH

cho một xâu kí tự Hãy kiểm tra xem câu đó có phải là xâu đối xứng không

NT
24 tháng 8 2022 lúc 7:57

uses crt;

var st:string;

kt,i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

kt:=0;

for i:=1 to d do

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

if kt=0 then write('yes')

else write('no');

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
H24
Xem chi tiết
MN
Xem chi tiết
TT
Xem chi tiết
TL
Xem chi tiết
LH
Xem chi tiết
SK
Xem chi tiết
NT
Xem chi tiết
LP
Xem chi tiết
H24
Xem chi tiết
NN
Xem chi tiết