Pascal - Nhập một xâu S từ bàn phím và đếm số lượng kí tự số trong xâu sau đó in ra màn hình

Để giải bài toán này trước hết chúng ta cần phải xác định bài toán và đề yêu cầu:

• INPUT: Nhập một xâu bất kì từ bàn phím
• OUTPUT: Đếm số lượng kí tự số có trong xâu và xuất ra màn hình

Bài toán này được giải như sau:

program codevodoi;
uses crt;
var S:string;
	i,dem:byte;
begin
	write('Nhap xau: ');
	readln(S);
	dem:=0;
	for i:= 1 to length(S) do
		if S[i] in ['0'..'9']
			then dem:=dem+1;
	write('So luong ki tu so la: ',dem);
	readln
end.