Question

Se citesc trei numere intregi a,b,c.Scrieti programul ce verifica daca cele trei numere pot forma laturile unui triunghi.In caz afirmativ afisati la ecran aria si perimetrul triunghiului si precizati tipul lui (echilateral,isoscel,oarecare)

Answer 1

var a,b,c:integer; 
      p,ar:real;
begin 
 readln(a,b,c);
 p:=(a+b+c)/2; 
 ar:=sqrt(p*(p-a)*(p-b)*(p-c));
 if (a+b>c) or (a+c>b) or (b+c>a) then writeln('Aria triunghiului format este : ',ar:3:1)                                                                 else writeln('Nu poate fi format un triunghi');
end.

502fe90b7f40e7ea33f83a44daf7b3fc.pas