VCT In ra màn hình thông báo đây là xâu đối xứng

Viết chương trình nhập vào một xâu. In ra màn hình thông báo đây là xâu đối xứng, hoặc không phải là xâu đối xứng

Ôn tập Dấu chấm phẩy và lời chú thích

a. Dấu chấm phẩy

Dấu chấm phẩy ( ; )dùng để ngăn cách giữa các câu lệnh.

Sau một câu lệnh phải có dấu chấm phẩy.

Ví dụ: Write(‘Nhap so a:’); Readln(a);

b. Lời chú thích

Lời chú thích có thể đặt bất cứ vị trí nào trong chương trình, nhưng phải nằm trong cặp dấu { và } hoặc (* và *).

Ví dụ: {Day la loi chu thich}

(* Day cung la mot loi chu thich*).

Bài giải

Program Doi_xung;

Uses crt;

Var i,n: integer;

var str,s:string[100];

Begin

    Clrscr;

    Write('Nhap xau S: '); Readln(str);
    
    n:=length(str);
    
    s:='';
     
    for i:=n downto 1 do s:=s+str[i];
    
    if str=s then writeln('Chuoi doi xung:')
    
    else writeln('Chuoi khong doi xung:');
    
    readln;

End.

Hình minh họa