Mech's spaceship landed on an alien planet. The brave explorer decided to have a walk around. The scenery was very picturesque - huge rocks under the black sky with several moons... Soon he approached an edge of a terrifying hole. He looked down and suddenly saw there one of the planet's moons - the hole went down through the whole planet!! "Abyss..." - Mech whispered in primal awe. He was so impressed that decided to estimate how large the abyss is in comparison with the planet. To start with he wants to calculate the actual volume of the planet i.e. its volume without the space in the abyss. Assume that the planet is a perfect ball and the abyss has the form of a cylinder that is symmetrically cut out of the ball as shown below. The only information Mech managed to get is the depth of the abyss. He now wonders if it is possible to calculate the volume of the ball with the cut out cylinder of the given depth. Help him and write a program to calculate it without knowing the radius of the planet. Don't be surprised - it is really possible! Hint: consider the previous sentence as a hint :)) Input Input will contain only one real number 0<=depth<=100 - the depth of the abyss in megameters. Output Your program should produce only one line with the actual volume of the planet in cubic megameters rounded to three digits after decimal point. Sample input 0.31 Sample output 0.016 cрочно
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Нарисуй те модуль фигуры шестигранника в 3 d
Автор: vgolentsova
Склавиатуры вводятся 12 чисел . найти максимальные.
Автор: uksusoval617
Переведи десятичное число 13510 в двоичную и восьмеричную систему счисления
Автор: Геннадьевич-Тимофеева158
Нужно разгадать ребус(украинский)
Автор: inj-anastasia8
Як відокремити коментар в тексті програмного коду? *
Автор: Борисов
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.