Для фигур: равностороннего треугольника, квадрата, правильных 5-угольника, 6-угольника, …, N-угольника дана длина стороны А (одна и та же). Вычислить площади S этих геометрических фигур. (Pasсal)

Var
  a, S: real;
  n: integer;

begin
  Write(Введите через пробел длину стороны многоугольника и число сторон: );
  Readln(a, n);
  S := n * sqr(a) / (4 * tan(Pi / n));
  Writeln(Площадь многоугольника равна , S:0:4);
end.

Тестовое решение:

Введите через пробел длину стороны многоугольника и число сторон: 5 10
Площадь многоугольника равна 192.3552

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.