GIẢI GIÚP EM VỚI : Nhập dữ liệu từ tệp dulieu.pas chứa 3 số nguyên a b c.Lập trình tính trung bình cộng và ghi kết quả vào tệp ketqua.pas

0 bình luận về “GIẢI GIÚP EM VỚI : Nhập dữ liệu từ tệp dulieu.pas chứa 3 số nguyên a b c.Lập trình tính trung bình cộng và ghi kết quả vào tệp ketqua.pas”

1. var f1,f2:text;
       tbc:real;
   begin
      assign(f1,’dulieu.pas’);
      reset(f1);
      assign(f2,’ketqua.pas’);
      rewrite(f2);
      read(f1,a,b,c);
      tbc:=(a+b+c)/3;
      write(f2,d:4:2);
      close(f1); close(f2);
   end.

   Bình luận