	Nguyễn Thanh Thảo \| Chat Online
	10/09 17:14:12
	Tin học - Lớp 11 \| Tin học \| Lớp 11

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.

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.