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

ээээ... формулы тут вводятся как то не по человечески... формулу можно посмотреть например тут правильную: http://www.fmclass.ru/math.php?id=4851348d647cb

радиус описанной вокруг правильного n-угольника окружности находится по формуле:

собственно программа:

var

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

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

   

begin

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

   readln(n);

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

   readln(a);

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

end.