Написать программу существования треугольника по заданным длинам сторон, используя if,...

Question

Написать программу существования треугольника по заданным длинам сторон, используя if, else. Является треугольник равносторонним и равнобедренным

Answer 1

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