Обсуждение @ 1023. Пуговицы @ Timus Online Judge

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

вернуться в форум

Обсуждение задачи 1023. Пуговицы

why time timit 10 test? version 2 :)

Послано Александр 5 май 2011 19:51

var i,j:integer;
l,k,p,m:int64;

begin

read(k);
p:=0;
l:=2;
    while l<100000000 do begin
      if k mod (l+1)=0 then begin
        write(L);
        halt;
      end else inc(l);
    end;
write(0);

end.

Edited by author 05.05.2011 20:04

Edited by author 05.05.2011 20:04

Re: why time timit 10 test? version 2 :)

Послано Astekinane 19 сен 2011 16:44

"l<100000000"
Indeed, why?