Question

написать в программе паскаль

Answer 1

var a,b,c,eq:integer;

begin

   readln(a,b,c);

   eq:=0;

   if(a>=b+c) then eq:=eq-100 else

      if(a=b) then inc(eq);

   if(b>=a+c) then eq:=eq-100 else

      if(b=c) then inc(eq);

   if(c>=a+b) then eq:=eq-100 else

      if(a=c) then inc(eq);

   case eq of

      0: writeln('Разносторонний');

      1: writeln('Равнобедренный');

      3: writeln('Равносторонний');

      else writeln('Не существует');

   end

end.