Cho 3 số nguyên a,b,c chứa trong tệp B1.TXT tính trung bình cố của a,b,c kết quả ghi vào B2.TXT Giúp mình vs ak

0 bình luận về “Cho 3 số nguyên a,b,c chứa trong tệp B1.TXT tính trung bình cố của a,b,c kết quả ghi vào B2.TXT Giúp mình vs ak”

1. var f1, f2: text;

          a, b, c: integer;

   Begin

       Assign(f1, ‘b1.txt’); reset(f1);

       Assign(f2, ‘b2.txt’); rewrite(f2);

       Read(f1, a, b, c);

       Write(f2, (a+b+c)/3);

       Close(f1); close(f2);

   End.

   Bình luận

2. program trung_binh;

   var f,g:text;

        a,b,c:integer;

   begin

          Assign(f,’B1.TXT’);  reset(f);

          Assign(g,’B2.TXT’);   rewrite(g);

          read(f,a,b,c);

          write(g,(a+b+c)/3:0:3);

          close(f);  close(g);

    end.

   Bình luận