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

Обсуждение задачи 1066. Гирлянда

To admin : very strange
Послано Ekaterinburg Highlanders 27 янв 2001 14:07
Как-то уж очень странно :
1. Никак не удаётся сдать эту задачу, перепроверено всё :
формулы (как рекурсивные так и нет), алгоритм... (эта
задача была решена на полуфинале участником нашей команды,
так вот он правильность алгоритма подтверждает).
2. К тому же очень настораживает, что на эту задачу 0% AC
(а кроме меня её пытались сдать ещё трое человек - я
посмотрел по монитору),  это ведь сравнительно простая
задача, на полуфинале её сдало много команд.
Ответьте, это я такой глупый или же где-то глюк?
I think it's my bug. I'll see. This task is locked till I'll find out what's wrong.
Послано Marat Bakirov 28 янв 2001 15:15
Subj.
Fixed
Послано Marat Bakirov 30 янв 2001 12:08
> Subj.
Re: Fixed
Послано Artem [Goodmark] 30 янв 2001 19:25
Are you sure?
var
    a,b,l1,l2,li,rmost: real;
    n,i: integer;

begin
    ReadLn(n, a);

    l2:=a;
    l1:=0;
    rmost:=0;

    for i:=3 to n do
    begin
        li:=2*l1-l2+2;

        l2:=l1;
        l1:=li;

        if li<0 then
        begin
            b:=-li/(i-1);
            if b>rmost then rmost:=b;
        end;
    end;

    b:=(i-1)*rmost+li;
    if b<0 then b:=0;

    WriteLn(b:0:2);
end.
I am sure, I retested your sended solution. It is obviosly wrong
Послано Marat Bakirov 31 янв 2001 15:14
Oh, sorry.
Послано Artem [Goodmark] 6 фев 2001 11:49