KIỂM TRA BÀI CŨ Câu 1: Em viết cấu trúc câu lệnh lặp for-do dạng tiến? for < biến đếm > := < giá trị đầu > to < giá trị cuối > < câu lệnh>; Câu 2: Cho xâu A: ‘chuc mung nam moi’ Em cho biết kết quả: a Delete(A, 10, 8) ‘chuc mung’ b Pos(‘nam’, A) 11 c Length(A) 17 Bài tập Viết chương trình nhập từ bàn phím xâu kí tự S có độ dài khơng q 100 Hãy cho biết có chữ số xuất xâu S Thông báo kết hình Bài tập Program baitap; Var S : string[100]; i, dem: byte; Begin writeln(‘cho mot xau ki tu dai khong qua 100’); readln(S); dem:=0; for i:1 to length(S) if (‘0’