Submission #3631869
Source Code Expand
var n,i:longint; begin readln(n); while n<>0 do begin for i:=2 to n div 2 do if n mod i=0 then begin writeln(n div 2); break; end; readln(n); end; end.
Submission Info
Submission Time | |
---|---|
Task | B - Working for the World |
User | luogu_bot4 |
Language | Pascal (FPC 2.6.2) |
Score | 0 |
Code Size | 190 Byte |
Status | WA |
Exec Time | 755 ms |
Memory | 128 KB |
Compile Error
/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?
Judge Result
Set Name | All | ||||
---|---|---|---|---|---|
Score / Max Score | 0 / 100 | ||||
Status |
|
Set Name | Test Cases |
---|---|
All | 00-sample, 10-minimum, 11-maximum, 12-little, 13-large, 14-middle, 15-zero, 50-random00, 50-random01, 50-random02, 50-random03, 50-random04, 50-random05, 50-random06, 50-random07, 50-random08, 50-random09, 50-random10, 50-random11, 50-random12, 50-random13, 50-random14, 50-random15, 50-random16, 50-random17, 50-random18, 50-random19 |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
00-sample | WA | 0 ms | 128 KB |
10-minimum | WA | 0 ms | 128 KB |
11-maximum | WA | 0 ms | 128 KB |
12-little | WA | 0 ms | 128 KB |
13-large | WA | 519 ms | 128 KB |
14-middle | WA | 1 ms | 128 KB |
15-zero | AC | 0 ms | 128 KB |
50-random00 | WA | 388 ms | 128 KB |
50-random01 | WA | 333 ms | 128 KB |
50-random02 | WA | 690 ms | 128 KB |
50-random03 | WA | 0 ms | 128 KB |
50-random04 | WA | 255 ms | 128 KB |
50-random05 | WA | 600 ms | 128 KB |
50-random06 | WA | 647 ms | 128 KB |
50-random07 | WA | 67 ms | 128 KB |
50-random08 | WA | 123 ms | 128 KB |
50-random09 | WA | 755 ms | 128 KB |
50-random10 | WA | 56 ms | 128 KB |
50-random11 | WA | 212 ms | 128 KB |
50-random12 | WA | 0 ms | 128 KB |
50-random13 | WA | 368 ms | 128 KB |
50-random14 | WA | 330 ms | 128 KB |
50-random15 | WA | 0 ms | 128 KB |
50-random16 | WA | 0 ms | 128 KB |
50-random17 | WA | 122 ms | 128 KB |
50-random18 | WA | 503 ms | 128 KB |
50-random19 | WA | 0 ms | 128 KB |