Viết chương trình nhập 3 số nguyên dương a,b,c từ bàn phím lần lượt là độ dài đáy lớn, đáy bé và chiều cao của 1 hình thang. Tính diện tích hình thang và in kết quả vào tệp hinh_thang.txt
1 câu trả lời
uses crt;
var a, b, c : real; f : text;
begin
clrscr;
write('Nhap day lon, be, chieu cao = ');
readln(a, b, c);
assign(f, 'hinh_thang.txt'); rewrite(f);
write(f, 'Dien tich hinh thang = ', ((a + b) * c) / 2 : 2 : 1);
close(f);
end.
