uses crt;
var st:string;
d,i:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
Giúp mình với mình cần gấp ạ! cảm ơn mng
Giúp mình câu 1 với
Nhập vào 1 xâu từ bàn phím . Đếm và in ra màn hình 1 số kí tự là "b" có trong xâu . Đưa ra màn hình xâu đã xóa hết các kí tự "b" có thể giải nhanh giúp mình ko ạ tại mình đang cần gấp
Mọi người giải giúp e hai bài này vs em đang cần gấp
Mọi người giải giúp mình Bài Tập này với ạ! Mình xin cảm ơn nhiều: Bài tập: Viết chương trình nhập từ bàn phím một xâu kí tự S. Viết ra màn hình: - Các kí tự số có trong xâu S - Số lượng các kí tự số có trong xâu S. - Thay tất cả các kí tự số đó bằng kí tự ‘A’.
1.Viết hàm cho biết xâu S1 có xuất hiện trong xâu S2 không?
2.Viết hàm chèn câu S1 vào S2 từ vị trí thứ 6?
3. Đếm xem có bao nhiêu kí tự là chữ số trong xâu S2
(Mọi người ơi giúp mình với ạ, mai mình thì rồi)
Giúp mình với ạ. Mình cảm ơn các bạn nhiều.
Chương tình pascal nha
