Cho 3 số nguyên a,b,c . hãy tính chu vi và diện tích của tam giác . Khai báo biến và các công thức tính toán của 3 cạnh tương ứng

Program Typlex;

Uses crt;

Var a,b,c,p: longint;

     S:real;

Begin 

     Writeln('a='); Readln(a);

     Writeln('b='); Readln(b);

     Writeln('c='); Readln(c);

     p:=a+b+c;

     Writeln('Chu vi: ',p);

     p:=(a+b+c)/2;

     S:=sqrt(p*(p-a)*(p-b)*(p-c));                   

     Writeln('Dien tich: ',S);

     Readln

End.

#Xin CTLHN, chúc bạn học tốt

Uses crt;
Var a,b,c,s,p : real;
Begin
Clrscr;
Writeln(‘HINH TAM GIAC:’);
Write(‘nhap a =’);readln(a);
Write (‘nhap b =’);readln(b);

Write(‘nhap c =’);readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));

Writeln(‘Dien tich tam giac:’,s:4:2);

Readln;
End.