Submission #3510547


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:=x div 2 downto 2 do
    begin
      if (x mod i=0) and (zs(i)) then begin writeln(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 351 Byte
Status WA
Exec Time 2107 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 × 3
WA × 3
TLE × 21
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 171 ms 128 KB
10-minimum WA 0 ms 128 KB
11-maximum AC 519 ms 128 KB
12-little WA 0 ms 128 KB
13-large TLE 2103 ms 128 KB
14-middle WA 1971 ms 128 KB
15-zero AC 0 ms 128 KB
50-random00 TLE 2103 ms 128 KB
50-random01 TLE 2103 ms 128 KB
50-random02 TLE 2103 ms 128 KB
50-random03 TLE 2103 ms 128 KB
50-random04 TLE 2103 ms 128 KB
50-random05 TLE 2103 ms 128 KB
50-random06 TLE 2103 ms 128 KB
50-random07 TLE 2103 ms 128 KB
50-random08 TLE 2103 ms 128 KB
50-random09 TLE 2103 ms 128 KB
50-random10 TLE 2103 ms 128 KB
50-random11 TLE 2103 ms 128 KB
50-random12 TLE 2103 ms 128 KB
50-random13 TLE 2103 ms 128 KB
50-random14 TLE 2107 ms 128 KB
50-random15 TLE 2103 ms 128 KB
50-random16 TLE 2103 ms 128 KB
50-random17 TLE 2103 ms 128 KB
50-random18 TLE 2103 ms 128 KB
50-random19 TLE 2103 ms 128 KB