viet chuong trình nhập 1 xâu vào từ bàn phím.đếm số dấu cách có trong xâu rồi lưu kết quả vào tệp daucach.txt
2 câu trả lời
var f:text;
s:string;
i,dem:byte;
begin
writeln('nhap mang');
readln(s);
dem:=0;
for i:=1 to n do
if s[i]=#32 then dem:=dem+1;
assign(f,'daucach.txt');rewrite(f);
write(f,dem);
close(f);
end.
program dem_cach;
uses crt;
var f:text;
s:string;
i,d:byte;
begin
clrscr;
Assign(f,'daucach.txt');
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i]=' ' then d:=d+1;
writeln(f,d);
close(f);
end.
