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.
