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

Question

anhthu · Answer

program dem_tu;

var f,g:text;

s:string;

i,d:byte;

begin

Assign(f,’vao.txt’); reset(f);

Assign(g,’dulieu.txt’); rewrite(g);

readln(f,s);

d:=1;

for i:=2 to length(s) do

if s[i]=’ ‘ then d:=d+1;

write(g,d);

close(f); close(g);

end.

0 bình luận về “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”