Lập trình để tính diện tích tam giác. Các cạnh là các số nguyên dương nhỏ hơn 50
2 câu trả lời
uses crt;
var a, b, c, s, p : real;
begin
clrscr;
write('Nhap 3 canh tam giac : ');
readln(a, b, c);
if (a < 50) and (b < 50) and (c < 50) then
begin p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
write('Dien tich = ', s : 2 : 2);
end; readln
end.
Program {tuỳ bạn};
Uses crt;
VAR S,P: Real;
AB,BC,CA: Integer;
BEGIN
Clrscr;
Readln(AB);
Readln(BC);
Readln(CA);
P:=(AB+BC+CA)/2;
S:= sqrt(P*(P-AB)*(P-BC)*(P-CA));
Write(S:0:2);
Readln
END.
