Viết chương trình nhập từ bàn phím xâu a( bao gồm cả chữ cái và chữ số). Đếm số kí tự chữ số có trong xâu. Đưa kết quả ra màn hình.
Viết chương trình nhập từ bàn phím xâu a( bao gồm cả chữ cái và chữ số). Đếm số kí tự chữ số có trong xâu. Đưa kết quả ra màn hình.
kt:=0;
for i:=1 to length(s) do
Begin
val(s[i],n,kt);//cấu trúc:chuyển xâu s thành sô nguyên n nếu được thì kt =0
if kt=0 then inc(dem);
end;
Nhập xuất tự làm