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

Question

Информатика

Евка

11 марта, 09:04

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

+4

Ответы (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.