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