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

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

why time timit 10 test?
Послано Александр 5 май 2011 18:00
var i,j:integer;
l,k,p,m:int64;

begin

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

    end;


end.