Var a,b,c,cv,dt,p:real;
Begin
write(' Nhap a=');readln(a);
write(' Nhap b=');readln(b);
write(' Nhap c=');readln(c);
if (a+b)<=c or (a+c)<=b or (b+c)>a then
write(' A,b,c khong phai 3 canh tam giac')
else write('a,b,c la 3 canh tam giac');
cv:=a+b+c;
p:=cv/2;
dt:sqrt((P*(P-a)*(P-b)*(P-c));
write(' Dien tich tam giac',Dt:7:3);
write(' Chu vi tam giac:', Cv:7:3);
readln;
End.
XEM CÔNG THỨC MÀ TÍNH
Gõ vào rồi kiểm tra kết quả xem ha. Chúc thành công!
Program bai1;
uses crt;
var a,b,c: real;
begin
clrscr;
write('Nhap 3 so a, b, c: ');readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
begin
write('3 canh vua nhap la tam giac');
writeln;
if(a=b)and(b=c) then
write('tam giac deu ');
writeln;
end
else
write('3 canh vua nhap ko phai la tam giac');
readln;
end.