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.
2 câu trả lời
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.
uses crt;
var f:text;
length,width:longint;
begin
assign(f,'HCN.INP');reset(f);
read(f,length,width);
close(f);
assign(f,'HCN.OUT');rewrite(f);
write(f,length*width);
close(f);
end.
Câu hỏi trong lớp
Xem thêm
