program oken; uses crt; var s: string; dem,i,n:integer; begin clrscr; write(‘Nhap 1 xau bat ky: ‘); readln(s); dem:=0; for i:=1 to n do if s[i]=’ ‘ then dem:=dem+1; if dem<>0 then writeln(‘Co ‘,dem,’ khoang trang trong xau.’) else writeln(‘Khong co khoang trang nao trong xau.’); readln; end.
Program Hotboy ;
uses crt;
var xau: string;
i,so: byte;
begin
clrscr;
So:=0;
Write(‘Nhap xau tu ban phim’); readln(xau);
For i:=1 to length(xau) do if xau[i]=’ ‘ then so:=so+1;
writeln(‘So luong dau cach trong xau la’,so);
Readln
End;
program oken;
uses crt;
var s: string;
dem,i,n:integer;
begin
clrscr;
write(‘Nhap 1 xau bat ky: ‘); readln(s);
dem:=0;
for i:=1 to n do
if s[i]=’ ‘ then dem:=dem+1;
if dem<>0 then
writeln(‘Co ‘,dem,’ khoang trang trong xau.’)
else
writeln(‘Khong co khoang trang nao trong xau.’);
readln;
end.