ENG  RUSTimus 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