ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1084. Пусти козла в огород

Показать все сообщения Спрятать все сообщения

Accepted SHORT brainail 21 янв 2010 17:59
uses math;
var len,r:extended;
begin
 read(len,r);
 if(r<=len/2)then writeln((pi*r*r):0:3) else
 if(sqrt(2)*len/2<=r)then writeln((len*len):0:3) else
  writeln((pi*r*r-4*arccos(len/r/2)*r*r+2*len*sqrt(r*r-len*len/4)):0:3);
end.