Viết chương trình: Nhập vào một xâu kí tự. Đếm và in ra màn hình

22/22

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.

Nhập câu trả lời ở đây

0/3000 ký tự

Giải thích

Var a: string;

i, Dem: integer;

Begin

writeln(‘nhap xau:’);

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.