Даны 3 стороны треугольника, составить программу в которой нужно определить равносторонний ли треугольник, если равносторонний, то вывести на экран сообщение треугольник - равносторонний

Question

Информатика

Евлампия

18 февраля, 13:32

Даны 3 стороны треугольника, составить программу в которой нужно определить равносторонний ли треугольник, если равносторонний, то вывести на экран сообщение треугольник - равносторонний

+5

Ответы (1)

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

Северина · Answer 1

Var

A, B, C:real;

Begin

Write ('a = ') ;

ReadLn (a) ;

Write ('b = ') ;

ReadLn (b) ;

Write ('c = ') ;

ReadLn (c) ;

if (a = b) and (b = c) then WriteLn ('Треугольник равносторонний')

End.