var
n : integer; // количество сторон (углов)
a : integer; // длина стороны
begin
write('введите количество сторон n= ');
readln(n);
write('введите длину стороны a= ');
readln(a);
writeln('радиус описанной окружности R=', a/2*(sin(pi/n)));
end.
не забываем что паскаль считает в радианах и формула расчета соответственная...
var
n : integer; // количество сторон (углов)
a : integer; // длина стороны
begin
write('введите количество сторон n= ');
readln(n);
write('введите длину стороны a= ');
readln(a);
writeln('радиус описанной окружности R=', a/2*(sin(pi/n)));
end.
не забываем что паскаль считает в радианах и формула расчета соответственная...