Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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