Viết chương trình đọc 2 số nguyên từ tệp HCN.INT a) tính diện tích HCN hiện kết quả và in ra màn hình b) lưu kết quả vào tệp HCN.OUT

uses crt;

var f1,f2:text;

      a,b:real;

begin

        clrscr;

        assign(f1,'HCN.INP');reset(f1);

        assign(f2,'HCN.OUT');rewrite(f2);

        readln(f1,a,b);

        writeln(a*b:0:3);

        writeln(f2,a*b:0:3);

        close(f1);close(f2);

readln;

end.

Đáp án:

uses crt;

var f1,f2:text;

      a,b:integer;

begin

  clrscr;

  Assign(f1,'HCN.INT');

reset(f1);

  Assign(f2,'HCN.OUT');

rewrite(f2);

  readln(f1,a,b);

  write(a*b);

  write(f2,a*b);

  close(f1); close(f2);

  readln;

end.

` @Akira2007 `