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ố
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ố
By Kylie
By Kylie
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ố
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.
XIN HAY NHẤT