Viết chương trình Pascal để tính diện tích hình thang với chiều dài hai đáy được nhập vào từ bàn phím,chiều cao không đổi là 10(đơn vị độ dài)

2 câu trả lời

uses crt;
var a,b:real;
begin
clrscr;
    read(a,b);
    writeln((b + a) * 10 / 2:0:2);
readln; readln;
end.

program dtht;

Var

         a,b:integer;

Begin

         write('Nhap do dai hai canh day: '); readln(a,b);

         write('Dien tich hinh thang la: ',(a+b)*10/2);

         readln;

End.

#Chuc_e_hoc_tot