Question

Введите три стороны треугольника. определите вид (равнобедренный, разносторонний, равносторонний)

Answer 1

Var a,b,c : integer;
begin 
readln (a,b,c);
if (not (a=b)) and (not (b=c)) and  (not (a=c))  then writeln('разносторонний')
else if ((a=b) and (not (b=c)) and (not (a=c))) or  ((b=c) and (not (b=a)) and (not (c=a))) or  ((a=c) and (not (a=b)) and (not (c=b))) then writeln('равнобедренный')
else writeln('равносторонний');
readln;
end.