Question

Треугольник со сторонами даны длины 3-х отрезков. из них можно составлять треугольники, соединяя отрезки концами. нужно сказать, можно ли получить таким равносторонний, равнобедренный или разносторонний треугольники. input со стандартного устройства ввода вводится через пробел 3 целых положительных числа, не превосходящих 10000 – длины отрезков. output нужно выдать на стандартное устройство вывода одно из следующих сообщений: “triangle is equilateral” – если треугольник равносторонний “triangle is isosceles” – если треугольник равнобедренный “triangle is scalene” – если треугольник разносторонний “triangle is invalid” – если треугольника не существует кавычки выводить не нужно. sample input 100 60 80 sample output triangle is scalene

Answer 1

Uses crt;
var a,b,c:integer;
begin
read(a);
read(b);
read(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
begin
if ((a=b) and (b<>c)) or ((a=c) and (c<>b)) or ((b=c) and (c<>a)) then writeln('Triangle is isosceles');
if (a=b) and (b=c) and (a=c) then writeln('Triangle is equilateral');
if (a<>b) and (a<>c) and (b<>c) then writeln ('Triangle is scalene');
end
else writeln('Triangle is invalid');
end.