Discussion @ 1343. Fairy Tale @ Timus Online Judge

(+)Admins

Posted by Safe Bird 2 Feb 2006 22:10

it is interesting for this problem, that readln/writeln int64 in pascal always fails??!!??

writeln(int64) fails on case 7
readln(int64) fails on case 10.

what kind of pascal compiler do you use?(along with version number)

thank you very much

As far as I know, FreePascal 2.03 or smth like that ;) (-)

Posted by Dmitry 'Diman_YES' Kovalioff 2 Feb 2006 23:33

P.S. (+)

Posted by Dmitry 'Diman_YES' Kovalioff 2 Feb 2006 23:39

I personally invite you (and everyone who is reading this message ;] ) and your team Shangri-La to participate in Timus Top Coders: First Challenge, see http://acm.timus.ru/contest.aspx?id=46 .

Re: (+)Admins

Posted by Vladimir Yakovlev (USU) 3 Feb 2006 15:22

You can't use readln(int64) and writeln(int64) in this problem. It's your mistake.

Re: (+)Admins

Posted by ACM.Krupko_Victor[Ivanovo SPU] 4 Feb 2006 00:53

thanx safe bird
but why i can't use readln(int64) and writeln(int64) in this problem?

Re: (+)Admins

Posted by Vladimir Yakovlev (USU) 4 Feb 2006 14:31

because of leading zeroes

(+)yes, we will come

Posted by Safe Bird 4 Feb 2006 21:40

there are three "shangri-la"s in the past
since i have two different teammates each year, and..

i just found two members, i think they will come with me:)

(+)But...

Posted by Safe Bird 4 Feb 2006 21:42

i know why writeln fails not.

but...

why do "readln(int64)" fail on it?
isn't "001234" read as "1234" by readln?

No comments :)

Posted by Vladimir Yakovlev (USU) 4 Feb 2006 22:26

I don't think it is a tricky case

Posted by Safe Bird 4 Feb 2006 22:46

the C++ program that "read(int64)" gets AC
but
the Pascal program that "read(int64)" gets wrong answer on 10:(

read(int64) fails on test with empty second line

Posted by Vladimir Yakovlev (USU) 4 Feb 2006 23:54

Edited by author 04.02.2006 23:55

god...

Posted by Safe Bird 5 Feb 2006 00:13

to Safe Bird...

Posted by ACM.Tolstobrov_Anatoliy[Ivanovo SPU] 5 Feb 2006 02:13

to Safe Bird

Var t:Int64;
Begin
ReadLn(t);
WriteLn(T);
ReadLn;
End.

Input 10^10
And What You See For Screen?
On My Delphi7 i See 10^10

Re: (+)Admins

Posted by currently unnamed... 30 Mar 2006 21:44

The first number seems to be 0 on test 10...

Discussion of Problem 1343. Fairy Tale