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.
|
