[r]
(1)Bài 28 : VCT nhập vào chuỗi bất kì Xuất xâu toàn các chữ số Ví dụ: Nhập chuỗi: bài tập tin học 4321 lop Xuất: 43219 var s1,s2 :string; ch :char; i,j :integer; begin write('nhap chuoi :'); readln(s1); for i:=1 to length(s1) if s1[i] in ['0' '9'] then s2:=s2+s1[i]; write('xau moi la :',s2); readln end (2) (3)