Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var n:integer;
  s,p,r:real;

begin
  readln(n,r);
  p:=2*n*tan(Pi/n);
  s:=p*r/2;
  writeln( Периметр , p);
  writeln( Площадь  , s);
end.