👤

  Se citesc 3 numere reale.

a) Verificati daca pot reprezenta laturile unui triunghi,

b) Daca da, clculati ara si perimetrul triunghiului.

 Vreau  sa stiu cum se rezolva, rezolvarea completa.



Răspuns :

Program p1;
var a,b,c,p,aria:real;
Begin
write('Dati a,b,c laturile unui triunghi:');readln(a,b,c);
if a > 0 and b>0 and c>0 then 
  begin
     p:=(a+b+c)/2;
     aria:=sqrt(p*(p-a)*(p-b)*(p-c));
     writeln("Aria triunghilui este:",aria," si perimetrul este:",p);
  end
else writeln("a,b,c nu pot forma un triunghi.");
readln;
End.