Качество картинки не самое лучшее
На языке паскаль, за
взято 3,14:
program ball;
var s,r, r2 : real;
begin
writeln('Введите радиус шара');
readln(r);
r2:=sqr(r);
s:=4*3.14*r2
writeln('Площадь шара равна ', s);
readln;
end.
//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