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

Обсуждение задачи 1120. Сумма последовательных чисел

Wrong answer ? :( why ? pls. check my program
Послано Razvan Tigaeru 26 май 2002 01:08
var n,p:longint;
begin
read(n);
for p:=round(sqrt(n))+1 downto 1 do if (((n-(p*(p-1) div 2))/p=trunc
((n-(p*(p-1) div 2))/p)) and
                                       ((n-(p*(p-1) div 2))/p>0))
then begin
  writeln(((n-(p*(p-1) div 2))/p):0:0,' ',p);
  halt;
end;
end.
Re: Wrong answer ? :( why ? pls. check my program
Послано Fechete Dan Ionut[dany] 28 май 2002 07:55
> var n,p:longint;
> begin
> read(n);
> for p:=round(sqrt(n))+1 downto 1 do if (((n-(p*(p-1) div 2))/p=trunc
> ((n-(p*(p-1) div 2))/p)) and
>                                        ((n-(p*(p-1) div 2))/p>0))
> then begin
>   writeln(((n-(p*(p-1) div 2))/p):0:0,' ',p);
>   halt;
> end;
> end.


P is a lot Bigger;