viết chương trình đọc 2 số nguyên (là 2 cạnh hình chữ nhật) từ tệp HCN.INT. Tính diện tích hình chữ nhật và ghi kết quả vào tệp HCN.OUT.
viết chương trình đọc 2 số nguyên (là 2 cạnh hình chữ nhật) từ tệp HCN.INT. Tính diện tích hình chữ nhật và ghi kết quả vào tệp HCN.OUT.
Const Fi=’HCN.INP’;
Fo=’HCN.OUT’;
Var f,g: text;
a,b,s: real;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Read(f,a,b);
s:=a*b;
Write(g,s:0:2);
Close(f);
Close(g);
End.