Viết chương trình nhập vào từ bàn phím xâu kí tự s có độ dài không quá 100. Hãy cho biết có bao nhiêu chữ số thập phân xuất hiện trong xâu s. Thông báo kết quả ra màn hình.
Chương trình nhập vào từ bàn phím xâu kí tự s có độ dài không quá 100. Cho biết số chữ số thập phân xuất hiện trong xâu s. Thông báo kết quả ra màn hình.
Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write(‘Nhap xau vao:’); readln(s); dem:= 0;
Advertisements (Quảng cáo)
for i:= 1 to length(s) do
if (‘0′<=s[i]) and(s[i]<=’9’) then dem:=dem+l;
Writeln(‘Trong xau s co ‘»dem,’ chu so thap phan’);
readln;
End.
Khi chạy chương trình, giả sử nhập vào xâu s :’Tin hoc 11 co 6 chuong’ thì kết quả chương trình in ra màn hình: ‘Trong xau s co 3 chu so thap phan’.
Kết quả chương trình có dạng như hình 70 dưới dây:
