Viết Chương Trình: Nhập Vào Một Xâu Kí Tự. Đếm Và In Ra Màn Hình...

Có thể bạn quan tâm

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là số có trong xâu.

Var a: string;

I,dem: integer;

Begin

Readln(a);

Dem:=0;

For i:=1 to length(a) do

If (‘0’<=a[i]) and (a[i]<=’9’) then dem:=dem+1;

Writeln(dem);

Readln

End.