From: <Or...@us...> - 2008-06-29 18:05:21
|
Revision: 289 http://acmcontester.svn.sourceforge.net/acmcontester/?rev=289&view=rev Author: Oracle_ Date: 2008-06-29 11:04:13 -0700 (Sun, 29 Jun 2008) Log Message: ----------- Deleted old source test. Removed Paths: ------------- ACMServer/trunk/sharp tester/tester/SAMPLE/source.txt Deleted: ACMServer/trunk/sharp tester/tester/SAMPLE/source.txt =================================================================== --- ACMServer/trunk/sharp tester/tester/SAMPLE/source.txt 2008-06-29 17:41:09 UTC (rev 288) +++ ACMServer/trunk/sharp tester/tester/SAMPLE/source.txt 2008-06-29 18:04:13 UTC (rev 289) @@ -1,18 +0,0 @@ -uses Windows; var f:Thandle; begin f:=CreateFile('Hello.txt',GENERIC_WRITE,0,nil,CREATE_ALWAYS,0,0); if (f=INVALID_HANDLE_VALUE) then while true do; CloseHandle(f); end. -var a,b:Extended; -i:Integer; -x:array of Integer; -begin - read(a,b); - for i:=1 to 5700000 do - a:=sqrt(a)*sqrt(a)+((sqrt(a)*sqrt(a))/sqrt(a))/sqrt(a)-1; - for i:=1 to 180000000 do ; - for i:=1 to 20 do - begin - SetLength(x,5000000); - x[1237]:=2178; - x[5237]:=2174; - SetLength(x,0); - end; - write(a+b:0:0); -end. This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |