Question

СОСТАВЬТЕ ПРОГРАММУ В ПАСКАЛЬ ДЛЯ ВЫЧИСЛЕНИЯ:
Найти радиус окружности, описанной около правильного n-угольника со стороной а

Answer 1

var

   n : integer; // количество сторон (углов)

   a : integer; // длина стороны

   

begin

   write('введите количество сторон n= ');

   readln(n);

   write('введите длину стороны a= ');

   readln(a);

   writeln('радиус описанной окружности R=', a/2*(sin(pi/n)));

end.

не забываем что паскаль считает в радианах и формула расчета соответственная...