Торт

Пример нерационального решения задачи:

При написании программы считается хорошим тоном, что имя переменной соответствует условию задачи (имеет смысл), нет лишних величин и тд.

Отсюда можно сбегать на сайт, и проверить онлайн какую часть торта получит Вася (хотя, я бы на месте гостей обиделась, и в следующий раз уже бы не пришла к нему на день рожденья)

http://bit126.moy.su/load/ssylki/matematika_i_ne_tolko/ploshhad_sektora_kruga/24-1-0-109

1. Торт

На свой день рождения программист Вася пригласил N друзей. Все они постоянно участвуют в олимпиадах, и у каждого из них есть свой рейтинг, причем все рейтинги различны. Он купил большой круглый торт, радиус которого R метров. Торт однородный (вес распределен равномерно по площади торта) с поверхностной плотностью G кг/м² и имеет определенную толщину, но в этой задаче она значения не имеет. Вася умеет резать торты только на куски, представляющие собой сектора. Все разрезы идут из центра. Поскольку Вася очень любит сладкое и он программист с наибольшим рейтингом среди друзей, он решил нарезать торт так, чтобы всем друзьям и ему самому досталось по одному куску, а его кусок был самый большой. Для этого Вася самому плохому программисту отрезает кусок с площадью X, следующему за ним по рейтингу площадью 2*X и так далее. Получается, что двум соседям по рейтингу из друзей Васи достанутся куски, площадь которых отличается в два раза. Вася быстро выяснил, какого размера кусок достанется ему. Ваша задача повторить его подвиг и найти площадь и вес самого большого куска.

Формат входных данных

Во входном файле заданы три целых числа N, R и G, разделенные пробелами, где N — количество друзей Васи (0 ≤ N ≤ 16). R — радиус торта в метрах (0 ≤ R ≤ 10³). G — плотность торта в килограммах на квадратный метр (0 ≤ G ≤ 10³).

Формат выходных данных

В выходной файл выведите два вещественных числа, разделенные пробелами: площадь куска Васи в квадратных метрах и вес куска в килограммах соответственно. Выходные значения должны быть верными с точностью до 10^-5.

Пример

var d,e,i,y,j,l:real;

a,b,c,p,o:integer;

begin   

assign(input, 'input.txt'); reset(input); 

    assign(output, 'output.txt'); rewrite(output);

readln(a,b,c);

l:=pi;

for p:=1 to b+1 do begin

e:=e+p; 

y:=(l/e)*(b+1);

end;

d:=y*c;

write(y:6:6,' ',d:6:6);

close(input);

close(output);

end.