ENG
RUS
Timus 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.
© 2000–2024
Timus Online Judge Team
. Все права защищены.