Nhập vào từ bàn phím một xâu

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 151 05/07/2023


Nhập vào từ bàn phím một xâu

Đề bài: 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 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.

1 151 05/07/2023


Xem thêm các chương trình khác: