//Pascal ABC.NET v3.1 сборка 1172
Var
n:integer;
r,p:real;
begin
read(n,r);
p:=n*2*r*tan(pi/n);
writeln(p);
end.
Пример ввода:
6
4
Пример вывода:
27.712812921102
Program Fibonacci;
var
p, q, r, i, n: integer;
begin
write('Alphaeus asks: please enter n = ');
readln(n);
p := 1;
writeln(p);
q := 1;
writeln(q);
for i:=3 to n do begin
r := p+q;
writeln(r);
p := q;
q := r
end;
end.
Var
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.