Определить являеться ли треугольник со сторонами (a, b, c) равносторонним.

Question

Кима

23 января, 10:09

+5

Ответы (1)

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

Галка · Answer 1

Var a, b, c:integer;

begin

readln (a, b, c) ;

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

else write ('Не равносторонний') ;

end.