Запросить стороны треугольника и определить, является ли он разносторонним, равносторонним или равнобедренным. Учесть: третья сторона не должна превышать сумму двух других, иначе треугольник не существует. Задача на тему "Программирование ветвлений на Паскале".

Question

Информатика

Стахий

11 февраля, 23:31

Запросить стороны треугольника и определить, является ли он разносторонним, равносторонним или равнобедренным. Учесть: третья сторона не должна превышать сумму двух других, иначе треугольник не существует. Задача на тему "Программирование ветвлений на Паскале".

+1

Ответы (1)

Знаете ответ на вопрос?

Просдока · Answer 1

var a, b, c: real;

begin

write ('напишите 3 стороны треугольника (c>a+b) ') ;

read (a, b, c) ;

if (ab) and (ac) and (bc) then write ('разносторонний') ;

if (a=b) and (a=c) and (b=c) then write ('равноносторонний') ;

if (a=b) and (bc) and (ac) then write ('равнобедренный') ;

end.