Submission #3631882


Source Code Expand

var
 n,i:longint;
begin
 readln(n);
 while n<>0 do
  begin
   for i:=2 to n-1 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_bot2
Language Pascal (FPC 2.6.2)
Score 0
Code Size 186 Byte
Status WA
Exec Time 1517 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
AC × 1
WA × 26
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 1043 ms 128 KB
14-middle WA 2 ms 128 KB
15-zero AC 0 ms 128 KB
50-random00 WA 780 ms 128 KB
50-random01 WA 668 ms 128 KB
50-random02 WA 1384 ms 128 KB
50-random03 WA 0 ms 128 KB
50-random04 WA 513 ms 128 KB
50-random05 WA 1205 ms 128 KB
50-random06 WA 1299 ms 128 KB
50-random07 WA 134 ms 128 KB
50-random08 WA 247 ms 128 KB
50-random09 WA 1517 ms 128 KB
50-random10 WA 112 ms 128 KB
50-random11 WA 425 ms 128 KB
50-random12 WA 0 ms 128 KB
50-random13 WA 740 ms 128 KB
50-random14 WA 663 ms 128 KB
50-random15 WA 0 ms 128 KB
50-random16 WA 0 ms 128 KB
50-random17 WA 245 ms 128 KB
50-random18 WA 1010 ms 128 KB
50-random19 WA 0 ms 128 KB