Написать программу, классифицирующую треугольники (равнобедренные, равносторонние, разносторонние), если даны стороны.

Question

Информатика

Хован

7 сентября, 16:18

Написать программу, классифицирующую треугольники (равнобедренные, равносторонние, разносторонние), если даны стороны.

+2

Ответы (1)

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

Хузуз · Answer 1

var a, b, c: real;

begin

write ('Введите стороны>> ') ;

read (a) ;

read (b) ;

readln (c) ;

if (a = b) and (b = c) then

write ('Треугольник равносторонний')

else if (a = b) or (b = c) or (a = c) then

write ('Треугольник равнобедренный')

else write ('Треугольник разносторонний') ;

end.