viết chương trình nhập vào 1 xâu rồi đếm xem xâu đó có bao nhiêu kí tự số
2 câu trả lời
program Hello;
var i,d:longint;
st:string;
begin
readln(st);
for i:= 1 to length(st) do
if (st[i] > '0') and (st[i] < '9') then
inc(d);
writeln(d);
readln;
end.
uses crt;
var s: string;
d,i: byte;
begin
clrscr;
write ('nhap xau: '); readln (s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then inc(d);
writeln ('trong xau co ',d,' ki tu so');
readln;
end.
