👤

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)

Răspuns :

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.
Vezi imaginea REMUSLUPIN