Viết chương trình pascal tính diện tích hình tam giác
Viết chương trình pascal tính diện tích hình tam giác
program dttamgiac;
uses crt;
var a,h:integer;s:real;
begin
writeln ('nhap do dai mot canh:');
readln (a);
writeln ('nhap chieu cao tuong ung:');
readln (h);
s:=1/2*a*h;
writeln ('dien tich hinh tam giac=',S:4:2);
readln
end.
