Viết công thức nhập từ bàn phím một xâu ký tự bất kỳ Hãy cho biết bao nhiêu ký tự chữ số

Program Hotboy ;

Uses crt;

Var xau: string

i,kituso: integer;

Begin

Kituso:=0;

Write('nhap xau'); readln(xau);

 For i:=1 to length(xau) do

  If (xau[i] in ['0'..'9']) then inc(kituso);

 Writeln('so ki tu so trong xau la',kituso);

Readln

End.

program Tin_hoc;

uses crt;

var i,n:integer;

      s:string;

begin

clrscr;

writeln('Nhap xau:');readln(s);

n:=0;

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

writeln('Xau tren co ',n,' ki tu so');

readln;

end.