Bài 4: Viết chương trình nhập vào 1 xâu .In ra màn hình số lượng dấu cách có trong xâu vừa nhập vào .
2 câu trả lời
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.
