Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.
Viết chương trình nhập vào xâu ký tự S ,độ dài không quá 100 ký tự . Hãy chuẩn hóa xâu
-Xâu chuẩn là xâu không có dấu cách ở cuối câu , giữa 2 từ trong xâu chỉ có 1 dấu cách .
Viết chương trình nhập vào một xâu S có độ dài không quá 125 ký tự từ bàn phím. Xuất xâu đã nhập. Thực hiện xóa hết các dấu cách có trong xâu S. Xuất xâu S đã xóa các dấu cách ra màn hình
viết chương trình nhập 1 xâu từ bàn phím. a) Hãy xóa tất cả các cách ký tự ở đầu xâu b) Hãy xóa tất cả các cách ký tự ở đầu xâu c) Hãy xóa tất cả các cách ký tự ở giữa các từ (giữa các từ chỉ có 1 dấu cách ) d) Đếm các chữ cái có trong xâu e) Đếm các chữ số ở xâu chuỗi. Trong màn hình kết quả
Viết chương trình nhập vào một xâu S có độ dài không quá 100 ký tự từ bàn phím. 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. Xuất xâu đã nhập
Nhập vào từ bàn phím một xâu. Hãy chuẩn hóa xâu vừa nhập theo quy tắc:
- Xóa các dấu cách ở đầu xâu và cuối xâu (nếu có).
- Nếu giữa xâu có 2 hay nhiều dấu cách thì xóa bỏ và chỉ để lại một dấu cách.
In ra xâu đã chuẩn hóa.
anh em giúp tôi với :(
Viết chương trình nhập vào một xâu ký tự st có độ dài không quá 100. Hãy thay thế các ký tự "a" hoặc "A" thành ký tự "b" trong xâu st. Đưa kết quả ra màn hình.
Viết chương trình nhập vào một xâu có độ dài không quá 100 ký tự từ bàn phím. Hiển thị lên màn hình các chữ số có trong xâu đã nhập (giữ nguyên thứ tự xuất hiện) xuất xâu đã nhập
Viết chương trình nhập 1 xâu từ bàn phím, đưa ra:
a. Độ dài xâu.
b. Xâu đã xóa đi 1 ký tự đầu.
c. Xâu đã xóa đi 2 ký tự cuối.
d. Xâu đã xóa đi 1 ký tự giữa.
e. Xâu đã in hoa.
f. Vị trí của khoảng trắng đầu tiên.
g. Đếm số ký tự ‘a’ có trong xâu.
