PROGRAM CT76;
USES crt;
VAR s: STRING;
i,dem: BYTE;
BEGIN
clrscr;
Write('Nhap xau: '); readln(s);
dem:=0;
FOR i:=1 TO length(s) DO
IF ((s[i]>='a') AND (s[i]<='z')) OR ((s[i]>='A') AND (S[i]<='Z')) THEN dem:=dem+1;
Write('So lan xuat hien cua chu cai tieng anh trong xau :',dem);
Readln
END.
Download: http://www.mediafire.com/?dr1vnk6qbyofxjw