👤

Se citesc de la tastatura 3 numere realee , sa se verifice daca ele pot forma laturile unui triunghi , daca da , sa se specifice tipul triunghiului. Pascal . Va rog mult NU pascal C

Răspuns :

var 

 a,b,c:real;

begin
 
 read(a,b,c);
 
 if (a+b<c) or (b+c<a) or (a+c<b) then 
  writeln('Nu exista asa triunghi.') else
   begin
   write('Exista asa triunghi.');
   if (a=b) and (a=c) then write(' Triunghiul este echilateral.') else
   if (a=b) or (b=c) or (a=c) then write(' Triunghiul este isoscel.') else
   if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then 
   write(' Triunghiul este dreptunghic.') else 
   write(' Triunghiul este arbitrar.')
   end;

end.