Question

Определить периметр P правильного многоугольника если задан радиус вписанной окружности R и количество углов N: P=N*A, где A=2*R*tg(180градусов/N). Это все в программе Паскаль.Записать на языке ПАСКАЛЬ.

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 n:integer;
 r,p:real;
begin
 read(n,r);
 p:=n*2*r*tan(pi/n);
 writeln(p);
end.

Пример ввода:
6
4
Пример вывода:
27.712812921102