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

Để giải bài toán này, trước tiên ta phải xác định đề bài yêu cầu:

• INPUT: Một xâu S bất kì từ bàn phím
• OUTPUT: Số lượng kí tự thường trong xâu

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 ['a'..'z']
			then dem:=dem+1;
	write('So luong ki tu thuong la: ',dem);
	readln
end.

Gửi bài tập pascal 11 tớ sẽ giải hộ tại khu vực bình luận nhé👼