Đăng nhập để hỏi chi tiết
9
3
Viết chương trình nhập vào 1 xâu S. Tìm trong S có bao nhiu kí tự là kí số
VD: " chao 12 Hoa"=> 2 kí số
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var S : string; i, d : byte;
begin
clrscr;
write('Nhap xau S = '); readln(S);
i := 1; d := 0;
while i <= length(S) do begin
if S[i] in ['0'.. '9'] then d := d + 1;
i := i + 1; end;
write(d,' ki tu la chu so');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin