cho tệp vao.txt chứa 1 xâu kí tự bất kì viết chương trình đếm xem xâu đã cho có bao nhiêu từ , kết quả ghi vào tệp dulieu.txt
2 câu trả lời
var f1,f2:text;
st,s:string;
dem:byte;
const fi='vao.txt';
fo='dulieu.txt';
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
readln(f1,st);
st:=st+' ';
while pos(' ',st)<>0 do
begin
s:=copy(st,1,pos(' ',st));
if s<>' ' then inc(dem);
delete(st,1,pos(' ',st));
end;
writeln(f2,dem);
close(f1);close(f2);
end.
uses crt;
var f,f1:text; i,n:longint; s:string;
begin
clrscr;
assign(f,'vao.txt');reset(f);
assign(f1,'dulieu.txt');rewrite(f1);
readln(f,s);
s:=' '+s+' ';
for i:=1 to length(s)-1 Do
if (s[i]=' ')and(s[i+1]<>' ') then inc(n);
writeln(f1,n);
close(f1);
close(f);
end.
