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

Timus Online Judge

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

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

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

Help me plizzzzz, My program works, but it's CRASHes when I send it!

Послано волчонок 21 июл 2005 08:27

Please Help!
   Here is my code:
*******************************************************
var i,n,h,k:integer;

Procedure main;
Begin
readln(n);

    for i:=1 to n do begin
     readln(k);
     k:=k-1;
     h:=trunc(sqrt(2*k));
     if h*(h+1)=2*k then write('1 ') else write('0 ')
    end

End;

BEGIN

main

END.
***********************************************************

Integer overflow. Use longword (-)

Послано Dmitry 'Diman_YES' Kovalioff 21 июл 2005 09:51

Re: Integer overflow. Use longword (-)

Послано волчонок 21 июл 2005 13:20

Thank you very much!!!

Re: Integer overflow. Use longword (-)

Послано Tolstobrov_Anatoliy[Ivanovo SPU] 22 июл 2005 02:06

or Cardinal!!
:)

Re: Integer overflow. Use longword (-)

Послано волчонок 22 июл 2005 08:34

Thanks!
I used longword and got AC, but what is "Cardinal".

Re: Integer overflow. Use longword (-)

Послано Tolstobrov_Anatoliy[Ivanovo SPU] 26 июл 2005 00:46

CARDINAL = LONGWORD
sizeof(cardinal)=4
min(CARDINAL)=0
MAX(CARDINAL)=2^32-1

P.S. Сardinal синоним LongWord!!!
Understand????
in server compiling with help FREEPASCAL!
(in UNIX or LINUX)

Re: Integer overflow. Use longword (-)

Послано волчонок 27 июл 2005 13:18

Thank you, now I know what is CARDINAL!