Question

дан радиус окружности, описанной около правильного 6-угольника. Найти площадь. через паскаль

Answer 1

var s,r:real;
begin
 write('введите радиус описанной окружности');
 readln(r);
 s:=3*sqrt(3)*r*r/2;
 writeln('площадь равна= ',s:6:2);
end.
и все