Viết Chương trình nhập vào chiều cao và cạnh đáy tương ứng tính và in ra màn hình của diện tích đó

1 câu trả lời

program tam_giac;
uses crt;
var a, h, s : real;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai chieu cao h :');readln(h);
s := 0.5*a*h;
writeln('dien tich cua tam giac la :', s:8:2);
readln
end.