Предмет: Информатика,
автор: igrendelaross
Треугольник
со сторонами
Даны длины 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
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Геометрия,
автор: Аноним
Предмет: Другие предметы,
автор: andrejpovysev8
Предмет: Українська мова,
автор: fuketfun
Предмет: Химия,
автор: AnnetAnnetAnnet
Предмет: Химия,
автор: Bahar