uses crt;
var kt:boolean;
st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
kt:=true;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=false;
if kt=true then writeln('Day la xau doi xung')
else writeln('Day khong la xau doi xung');
readln;
end.
Một xâu có đội dài lớn hơn 1 chỉ gồm các chữ cái La tinh in thường được gọi là số đối xứng nếu ta đọc xâu đó từ trái sang phải và từ phải sang trái là như nhau. Một xâu được gọi là siêu đối xứng, nếu nó là xâu đối xứng hoặc được tạo thành bằng cách ghép liên tiếp từ nhiều xâu đối xứng.
Yêu cầu: Cho một xâu S, hãy đếm số xâu con siêu đối xứng của S ( Xâu con của một xâu S là một đoạn liên tiếp các kí tự của S)
Dữ liệu vào: Nhập xâu S từ bàn phím
Dữ liệu ra: Xuất ra màn hình số xâu con tìm được
Nhập S=aabbccdd
Xuất ra: 10 ( Các xâu siêu đối xứng là: aa, bb, cc, dd, aabb, bbcc, ccdd, aabbcc, bbccdd, aabbccdd )
làm bằng pascal nha. mình cảm ơn!
Viết chương trình đọc dữ liệu từ tệp Input.Txt 2 xâu. Viết kết quả vào tệp output.Txt xâu nào ngắn hơn. Nếu 2 xâu bằng nhau thì viết thông báo: “2 xâu bằng nhau”
Viết chương trình: A. Nhập vào từ bàn phím 2 xâu a, b ( chứa các chữ thường ) và thông báo ra màn hình tổng độ dài của 2 xâu B. Tạo xâu c gồm các chữ cái từ xâu a và các chữ số từ xâu b. Đưa xâu c lên màn hình
Các anh chị giải giúp em với ạ
in ra từ dài nhất trong xâu, nếu nhiều từ có độ dài bằng nhau thì in ra tất cả các từ đó
Vd: nhâp xâu=truong thich hoc pascal
truong
pascal
Viết chương trình nhập từ bàn phím một xâu kí tự S có độ dài không quá 100. Hãy cho biết có bao nhiêu chữ số xuất hiện trong xâu S. Thông báo kết quả ra màn hình ( Trên NNLT Python).
Khai báo 2 biến xâu a, b nào sau đây là đúng:
A. var a, b : string[275];
B. var a, b = string[275];
C. var a, b : string;
D. var a. b : string;
Khai báo 2 biến xâu a, b nào sau đây là sai:
A. var a, b = string;
B. var a, b : string[15];
C. var a, b : string[25];
D. var a, b : string;
Khai báo 2 biến xâu a, b nào sau đây là đúng:
A. var a, b : string[275];
B. var a, b : string[27];
C. var a, b = string;
D. var a. b : string;
Khai báo 2 biến xâu a, b nào sau đây là sai:
A. var a, b : string;
B. var a, b : string[15];
C. var a, b : string[25];
D. var a. b : string;
