Написать программу вычисления площади произвольного шестиугольника

Question

Информатика

Федотья

24 июля, 02:18

Написать программу вычисления площади произвольного шестиугольника

+5

Ответы (1)

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

Леонида · Answer 1

Var

a: integer;

Begin

WriteLn ('S = 3√3a² / 2') ;

Write ('Длина стороны (a) = ') ; ReadLn (a) ;

WriteLn ('Площадь (S) = ', 3*Sqrt (3) * a*a/2) ;

End.