Viết chương trình nhập 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ố xuất hiện trong xâu S. Thông báo kết quả ra màn hình.
Quảng cáo
1 câu trả lời 848
Ta chỉ cần duyệt lần lượt từng kí tự của xâu S nếu nó nằm trong đoạn từ '0' đến '9' thì ta tăng biến đếm lên 1.
program Diag;
uses crt;
Var
s:string[100];
i,d:integer;
begin
clrscr;
d:=0;
write('Nhap xau S :');
readln(s);
for i:=1 to length(s) do
if ('0'<=s[i]) and (s[i]<='9')
then
d:=d+1;
writeln('so ki tu la so xuat hien trong xau s la ',d);
readkey;
end.
Kết quả:

Phạm Hữu Thạch
· 2 năm trước
Còn thông báo ra màn hình số lần xuất hiện kí tự số thì làm sao bạn
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86064
Gửi báo cáo thành công!
