Nhập vào từ bàn phím một xâu. Kiểm tra xâu đó có phải là xâu đối xứng

593

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (Phần 2)

Câu 56Nhập vào từ bàn phím một xâu. Kiểm tra xâu đó có phải là xâu đối xứng hay không. Xâu đối xứng có tính chất: đọc nó từ phải sang trái cũng thu được kết quả giống như đọc trái sang phải (còn được gọi xâu palindrome).

Lời giải:

program vd2;

uses crt;

var

          i,x:byte;

          a,p:string;

begin

          clrscr;

          write(‘nhapxau’);

          readln(a);

          x:=length(a);

          p:=’’;

          for i:=x downto 1 do

          p:=p+a[i];

          if a=p then

                   write(‘xau la palindrome’)

else

                   write(‘xau khong phai la palindrome’);

          readkey;

end.

Đánh giá

0

0 đánh giá