Программа: Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R (рассмотреть N — целого типа,

Question

Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R (рассмотреть N — целого типа, R — вещественного типа).
Программа Паскаль

Answer 1

begin
  var r := ReadLnReal('Радиус вписанной окружности: R =');
  var n := ReadLnInteger('Число сторон правильного N-угольника: N =');
  var a := tan(Pi/n)*r*2;
  WriteLn('Длина стороны: a = ', a);
  WriteLn('Площадь: S = ', r*n*a/2);
  WriteLn('Периметр: P = ', a*n);
end