Viết chương trình nhập 1 xâu từ bàn phím, đếm số lượng kí tự là chữ số có trong xâu vừa nhập
2 câu trả lời
var s: string;
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 d:=d+1;
write('Co ', d, ' ki tu la chu so');
readln
end.
program dem_so;
uses crt;
var s:string;
i,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then d:=d+1;
write('Co ',d,' ki tu la chu so');
readln;
end.
