Question

Хепланите плиз
Написать программу на языке Pascal 
Вариант 4

Answer 1

var pi,inR: real;

function a(RR:real; n:integer):real;
begin
 a := 2*RR*sin(pi/n)
end;

function r(RR:real; n:integer):real;
begin
 r := RR * cos(pi/n)
end;

function S(RR:real; n:integer):real;
begin
 S := a(RR,n) * n * r(RR,n) / 2
end;

begin
 pi := 4 * arctan(1);
 read(inR);
 writeln(S(inR,10));
 writeln(S(inR,50));
 writeln(S(inR,100))
end.