Cho xâu s được nhập vào từ bàn phím. Đếm xem trong xâu có bao nhiêu số tự nhiên? Giúp mình với mình đang cần gấp!!!
2 câu trả lời
uses crt;
var s:string; i,d:longint;
begin
clrscr;
write('Nhap 1 xau: ');readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then inc(d);
writeln(d);
readln
end.
uses crt;
var s:string;
i,count:word;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then inc(count);
write(count);
readln;
end.
