Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (45.28 KB, 2 trang )
<span class='text_page_counter'>(1)</span>Bài 28 : VCT nhập vào 1 chuỗi bất kì. Xuất xâu chỉ toàn các chữ số Ví dụ: Nhập chuỗi: bài tập tin học 4321 lop 9 Xuất: 43219 var s1,s2 :string; ch :char; i,j :integer; begin write('nhap chuoi :'); readln(s1); for i:=1 to length(s1) do if s1[i] in ['0'..'9'] then s2:=s2+s1[i]; write('xau moi la :',s2); readln end..
<span class='text_page_counter'>(2)</span>
<span class='text_page_counter'>(3)</span>