uses crt;
var st:string;
d,i:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=d downto 1 do
if (st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
Giúp mình câu này với mình cần gấp
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ần gấp ạ! cảm ơn mng
Giúp mình với ạ. Mình cảm ơn các bạn nhiều.
Chương tình pascal nha
Giúp mình với mọi người...!
giúp mình với huhu, trừ bài 4 ra
Viết phương trình tạo một xâu a. Đếm có bao nhiêu kí tự có trong xâu b. Đếm có bao nhiêu dấu cách có trong xâu Giúp mình với ạ, mình cảm ơn nhiều
