input : cho tệp xauin.doc chứa các kí tự cả số và chữ output: đưa kết quả ra tệp xauout.txt là số lượng của từng chữ cái có trong tệp , mỗi kết quả t

0 bình luận về “input : cho tệp xauin.doc chứa các kí tự cả số và chữ output: đưa kết quả ra tệp xauout.txt là số lượng của từng chữ cái có trong tệp , mỗi kết quả t”

1. uses crt;

   var f,g:text;

         st:string;

   begin

   Assign(f,’xauin.txt’);

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

   {$I-} reset(f); {$I+}

   if Ioresult<>0 then

     begin

       rewrite(f);

       reset(f);

     end;

   readln(f,st);

   write(g,length(st));

   close(f);  close(g);

   end.

   Bình luận