uses crt; var s:string; i,d:byte; begin clrscr; write('Nhap xau S: ');readln(s); d:=0; for i:=1 to length(s) do if s[i]=' ' then inc(d); writeln('Co ',d,' dau cach trong xau vua nhap'); readln end.
uses crt; var s:string;i,d:longint; begin clrscr; write('Nhap xau: '); read(s); for i:=1 to length(s) do if s[i]=' ' then inc(d); writeln('Co ',d,' khoang trang'); readln end.
