Напишите задачу в Паскале Треугольник задан длинами сторон.Если такой треугольник...

Question

Напишите задачу в Паскале
Треугольник задан длинами сторон.Если такой треугольник существует, то сообщить какой он: Равносторонний, равнобедренный или разносторонний

Answer 1

Var a,b,c : real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)<br> then writeln('Треугольника не существует')
 else if (a<>b)and(b<>c)and(a<>c)
        then writeln('Треугольник разносторонний')
        else if (a<>b)or(b<>c) then writeln('Треугольник равнобедренный')
                               else writeln('Треугольник равносторонний');
end.

Пример:
a=3
b=4
c=6
Треугольник разносторонний