viết ct tích và đưa ra màn hình diện tích hình tam giác . biết 3 cạnh a, b và c là số nguyên được nhập từ bp
2 câu trả lời
Uses crt;
Var a,b,c,p,s:longint;
Begin
Clrscr; read(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich tam giac la : ',s);
Readln;
End.
Program STG;
Uses crt;
Var a,b,c: real;
p,s: extended;
Begin
Clrscr;
Write('Nhap do dai 3 canh a, b, c: '); Readln(a,b,c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich tam giac la: ',s:10:2);
Readln
End.
