Submission #3510617


Source Code Expand

var
  x,y,i,j,n:longint;
function zs(y:longint):boolean;
var
  i:longint;
begin
  for j:=2 to trunc(sqrt(y)) do
    if y mod j=0 then exit(false);
  exit(true);
end;
begin
  readln(x);
  while x<>0 do
  begin
    for i:=2 to x-1 do
    begin
      if (x mod i=0) and (zs(x div i)) then begin writeln(x div i);break;end;
    end;
    readln(x);
  end;
end.

Submission Info

Submission Time
Task B - Working for the World
User luogu_bot1
Language Pascal (FPC 2.6.2)
Score 0
Code Size 355 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 × 8
WA × 19
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 AC 0 ms 128 KB
10-minimum WA 0 ms 128 KB
11-maximum AC 209 ms 128 KB
12-little WA 0 ms 128 KB
13-large WA 1069 ms 128 KB
14-middle WA 2 ms 128 KB
15-zero AC 0 ms 128 KB
50-random00 WA 784 ms 128 KB
50-random01 WA 688 ms 128 KB
50-random02 WA 1384 ms 128 KB
50-random03 AC 3 ms 128 KB
50-random04 WA 520 ms 128 KB
50-random05 WA 1206 ms 128 KB
50-random06 WA 1300 ms 128 KB
50-random07 WA 137 ms 128 KB
50-random08 WA 250 ms 128 KB
50-random09 WA 1517 ms 128 KB
50-random10 WA 115 ms 128 KB
50-random11 WA 430 ms 128 KB
50-random12 AC 3 ms 128 KB
50-random13 WA 741 ms 128 KB
50-random14 WA 668 ms 128 KB
50-random15 AC 4 ms 128 KB
50-random16 AC 2 ms 128 KB
50-random17 WA 249 ms 128 KB
50-random18 WA 1016 ms 128 KB
50-random19 AC 2 ms 128 KB