Viết chương trình nhập từ bàn phím xâu a ( bao gồm cả chữ cái và số) Đếm số ký tự chữ số có trong xâu. Đưa kết quả ra màn hình

*Giải thích các bước giải:

program khanhvan;

uses crt;

var i,sk:integer;

      a:string;

Begin

write('Nhap xau a:')

readln(a);

k:=0;

for i:= 1 to length(a) do if a[i] in ['0'..'9'] then inc(k);

writeln('Xau a co ',k,' ki tu chu so');

readln;

End.

program Tin_hoc;

uses crt;

var i,n:integer;

      a:string;

begin

clrscr;

writeln('Nhap xau');

readln(a);

n:=0;

for i:=1 to length(a) do if a[i] in ['0'..'9'] then inc(n);

writeln('Xau a co ',n,' ki tu la chu so');

readln;

end.