Question

Дана сторона в, правильного семиугольника. Составить программу для нахождения радиуса вписанной окружности r, и площади семиугольника S, по формулам:  r=b/2 (1+sqr2) и s=8*r^2*sqr3-2sqr2

Answer 1

var r,s,b:real; 
begin readln (b);
r:=b/2*(1+sqr(2));
s:=8*sqr(r)*sqr(3)-(sqr(2)*2);
writeln (r);
writeln(s);
end.