ENG
RUS
Timus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум
Обсуждение задачи
1131
. Копирование
Help! Where's my error?
Послано
Alexander Kosm
7 мар 2007 17:44
var t,c,i,n,k:integer;
begin
read (n,k);
i:=1;
while i<n do
begin
If c<k then c:=c+1;
i:=i+c;
t:=t+1;
end;
If n=-1 then t:=-1;
writeln (t);
end.
Edited by author 12.09.2007 19:47
© 2000–2024
Timus Online Judge Team
. Все права защищены.