1. nhập 2 xâu S1, S2 vào bàn phím 2. cho biết độ dài mỗi xâu. Ghi dữ liệu vào tệp trong ổ đĩa E:\KQ.TXT

0 bình luận về “1. nhập 2 xâu S1, S2 vào bàn phím 2. cho biết độ dài mỗi xâu. Ghi dữ liệu vào tệp trong ổ đĩa E:\KQ.TXT”

1. const fi=’dulieu.txt’;
   fo=’ketqua.txt’;
   var i,t:integer;
   f1,f2:text;
   a:array[1..9]of integer;
   begin
   assign(f1,fi); reset(f1);
   assign(f2,fo); rewrite(f2);
   t:=0;
   for i:=1 to 9 do
   begin
   read(f1,a[i]);
   t:=t+a[i];
   end;
   writeln(f2,t);
   close(f1);
   close(f2);

   Bình luận