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

Обсуждение задачи 1800. Закон бутерброда

it accepted!
Послано Jumbo 22 мар 2011 16:29
var w,g,h,l,t:real;
begin
g:=981;
read(l,h,w);
if l/2>h then begin write('butter'); halt end;
t:=sqrt(2*(h-l/2)/g);
w:=frac(w*t/60);
if ((w>=0) and (w<=1/4)) or ((w>=3/4) and (w<=1)) then write('butter') else write('bread');
end.
Re: it accepted!
Послано Jumbo 23 мар 2011 16:01
var w,h,l:real;
begin

read(l,h,w);
if l/2>h then begin write('butter'); halt end;

if ((frac(w*sqrt(2*(h-l/2)/981)/60)>=0) and (frac(w*sqrt(2*(h-l/2)/981)/60)<=1/4)) or ((frac(w*sqrt(2*(h-l/2)/981)/60)>=3/4) and (frac(w*sqrt(2*(h-l/2)/981)/60)<=1)) then write('butter') else write('bread');
end.