Обсуждение @ 1209. 1, 10, 100, 1000... @ Timus Online Judge

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

вернуться в форум

Обсуждение задачи 1209. 1, 10, 100, 1000...

My Very Little Code

Послано Locomotive 19 дек 2002 12:32

Var
k                   :extended;
n                   :word;
begin
readln(n);
repeat
    readln(k);
    write(ord(trunc(sqrt(2*(k-1)))*
             (trunc(sqrt(2*(k-1)))+1)=2*(k-1)),' ');
    dec(n);
until n=0;
end.

Re: My Very Little Code

Послано Tang RZ 29 май 2004 11:07

(ord(trunc(sqrt(2*(k-1)))*(trunc(sqrt(2*(k-1)))+1)=2*(k-1)),' ');
How do you get this?