INPUT: cạnh a, chiều cao tương ứng h
OUTPUT: diện tích tam giác S
code:
uses crt;
var a,b,s:real;
begin clrscr;
write('nhap canh:');readln(a);
<thực hiện nhập cạnh>
write('nhap chieu cao:');readln(h);
<thực hiện nhập chiều cao>
s:=a*h/2;
<tính diện tích>
write('dien tich la:',s:8:2);
<in ra diện tích>
readln;
end.