Hãy viết một chương trình bằng ngôn ngữ lập trình pascal nhập vào từ bàn phím chiều dài và chiều rộng hình sự của một hình chữ nhật và tính diện tích hình chữ nhật và ghi kết quả ra tệp
1 câu trả lời
uses crt;
var cn:text;
d,r,dt:real
begin
clrscr;
write('nhap chieu dai: ');readln(d);
write('nhap chieu rong: ');readln(r);
dt:=d*r;
assign(cn,'D:\ra.out');
rewrite(cn);
write(cn,'dien tich hinh chu nhat: ',dt:1:2);
close(cn);
readln;
end.
