Информатика, PascalABC, написать программу: Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R (рассмотреть N-целого типа, R-вещественного типа)
Информатика, 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.
Не нашли ответ?
Похожие вопросы