Информатика, PascalABC, написать программу: Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R (рассмотреть N-целого типа, R-вещественного типа)
Ответы
Ответ дал:
0
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.
s,p,r:real;
begin
readln(n,r);
p:=2*n*tan(Pi/n);
s:=p*r/2;
writeln( 'Периметр ', p);
writeln( 'Площадь ', s);
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад