Nhập từ bàn phím từ xâu có độ dài không quá 100 kí tự đếm Xem xâu vừa nhập có bao nhiêu ký tự chữ số
2 câu trả lời
var s: string[100];
i, d: byte;
Begin
Write('nhap xau: '); readln(s);
d:=0;
For i:=1 to length(s) do
If s[i] in ['0'..'9'] then inc(d);
Write('co ', d, ' ki tu so');
Readln
End.
program vd1;
uses crt;
var s: string[100];
I, D: byte;
Begin
Write('nhap xau: '); readln(s);
D:=0;
For I:=1 to length(s) do
If s[I] in ['0'..'9'] then inc(D);
Write('co ', D, ' ki tu so');
Readln;
End.
