uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('nhap chuoi:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('nhap chuoi:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
Hãy viết chương trình:
Chuyển chuỗi nhập từ bàn phím thành 1 chuỗi toàn là chữ viết hoa
Nhập chuỗi abCD
Kết quả: ABCD
Bài 1: Viết chương trình Nhập vào một dãy số gồm n phần tử, đếm và in ra kết quả trong dãy có bao nhiêu số chẵn. Bài 2: Viết chương trình nhập vào một xâu ký tự in ra màn hình độ dài của xâu.
Hãy viết chương trình nhập vào bàn phím 1 sâu S hãy xóa hết các chữ số có trg sâu S vưaf nhập hiển thị kết quả ra màn hình
Viết chương trình sau: Cho chuỗi S1:='Chuc mung cac ban' ; S2:='Nam moi' ; Khi chạy chương trình cho kết quả là: Chuc mung nam moi
Viết chương trình nhập vào một xâu hãy xóa đi các dấu cách ở đầu sâu và cuối sâu nếu có rồi đưa kết quả ra màn hình
Viết chương trình nhập vào 1 xâu, tạo xâu từ xâu vừa nhập bao gồm các kí tự khác chữ, hiển thị kết quả ra màn hình
1.Viết chương trình nhập một xâu ký tự gồm các ký tự từ “ a” đến “ z” và “A” đến “Z”. In ra màn in xâu đã nhập theo dạng chữ viết thường.
2.Viết chương trình đã nhập vào một số nguyên.Chuyển số đã nhập thành xâu số nguyên
Viết chương trình nhập vào từ bàn phím một xâu ký tự, chương trình tự tìm những ký tự là số để xóa đi và xuất kết quả ra màn hình.
Nhập vào một chuỗi dài tối đa 255 kí tự. Tìm chuỗi con dài nhất có các kí tự liên tiếp giống nhau. In chuỗi con đó ra màn hình
VD: Nhập vào chuỗi: s='abcaaaaddccccccaaad
Chuỗi con dài nhất có các kí tự liên tiếp giống nhau là: 'cccccc'