uses crt; var s:string; i,dem:byte; begin clrscr; write('Nhap xau: '); readln(s); for i:=1 to length(s) do if s[i]=' ' then dem:=dem+1; writeln('So dau cach co trong xau la: ',dem); readln end.
uses crt; var st : string; i,d : integer; begin clrscr; write('Nhap xau :'); readln(st); d:=0; for i:=1 to length(st) do if st[i]=#32 then d:=d+1; write('Phan tu cach co trong xau :',d); readln end.
