Kiểu xâu (chuỗi):
nhập 1 xâu ( chuỗi) từ bàn phím và cho biết xâu đó có bao nhiêu kí tự, kí tự trống, và bao nhiêu từ.
uses crt;
Var S:string; i,dem,cong:integer;
Begin
Clrscr;
Write(' Nhap vao chuoi S: '); Readln(S);
For i:=1 to length(S) do
If S[i]=' ' then
dem:=dem+1;
Writeln('Vay co ',dem,' khoang trong');
For i:=1 to length(S) do
If ((S[i]>='A') and (S[i]<='Z')) or ((S[i]>='a') and (S[i]<='z')) then
cong:=cong+1;
Writeln('Vay co ',cong,' ki tu');
Writeln(' Vay co ',dem+1,' tu');
Readln;
End.
*** CHUC BAN THANH CONG ***
haiz, khó nhỉ