Đề 1: Viết chương trình tính diện tích hình tam giác với độ dài ba cạnh a, b,c hoặc chiều cao h (là các số thực được nhập vào từ bàn phím). In ra màn hình kết quả đó. Kiểm tra xem nếu diện tích của hình tam giác lớn hơn diện tích của hình chữ nhật Shcn=50 m2 thì đưa ra kết quả là diện tích tam giác lớn hơn diện tích hình chữ nhật ngược lại diện tích hình tam giác nhỏ hơn diện tích hình chữ nhật
Giải hộ mình vớiiiiiiiiiiiiiiiiiiiiiiiiiii !
uses crt;
var a,h,s: real;
begin
clrscr;
write (‘nhap canh day: ‘); readln (a):
write (‘nhap chieu cao: ‘); readln (h);
s:=a*h/2;
writeln (‘dien tich la: ‘,s);
if s>50 then writeln (‘dien tich tam giac lon hon dien tich hinh chu nhat’);
if s<50 then writeln (‘dien tich tam giac nho hon dien tich hinh chu nhat’);
if s=50 then writeln (‘dien tich tam giac bang dien tich hinh chu nhat’);
readln;
end.