發表新討論
#8730: 到底錯了什麼????????????????????????


abc337479871 (密碼:我DE芳齡!!學弟學妹們加油了! ↖(^ω^)↗ ...)

a626. 6. Prime Directive -- HP CodeWars 2007 | From: [180.94.157.220] | 發表日期: 2014-03-27 20:35

var a:array[1..10000] of longint;b,c,j,k,x,y,i:longint;
begin
  while not eof do
  begin
    readln(x);
    k:=0;
    for i:=2 to x do a[i]:=1;
    for i:=2 to x do
    for j:=2 to trunc(sqrt(i)) do
    begin
      if i mod j=0 then a[i]:=0;
    end;
    for i:=2 to x do
    begin
    if a[i]=1 then
      begin
      write(i:10);
      k:=k+1;
      end;

    if k=5 then
       begin
       writeln;
       k:=0;
       end;
    end;
  end;
writeln;
readln;
end.

 

 

 

WA (line:8)
答案不正确

您的答案為: 73        79        83        89      ...略 正確答案為: 73        79        83        89
#8769: Re:到底錯了什麼????????????????????????


arthur005 (005)

a626. 6. Prime Directive -- HP CodeWars 2007 | From: [61.221.123.238] | 發表日期: 2014-04-15 12:55
你在最後要換行
#8931: Re:到底錯了什麼????????????????????????


davidhsu (David)

a626. 6. Prime Directive -- HP CodeWars 2007 | From: [163.24.167.2] | 發表日期: 2014-07-02 12:35

var a:array[1..10000] of longint;b,c,j,k,x,y,i:longint;
begin
  while not eof do
  begin
    readln(x);
    k:=0;
    for i:=2 to x do a[i]:=1;
    for i:=2 to x do
    for j:=2 to trunc(sqrt(i)) do
    begin
      if i mod j=0 then a[i]:=0;
    end;
    for i:=2 to x do
    begin
    if a[i]=1 then
      begin
      write(i:10);
      k:=k+1;
      end;

    if k=5 then
       begin
       writeln;
       k:=0;
       end;
    end;
  end;
writeln;
readln;
end.

 

 

 

WA (line:8)
答案不正确

您的答案為: 73        79        83        89      ...略 正確答案為: 73        79        83        89

line 8

x=90 時

write(i:10); 會多印出10個空白 

第42個題目為1000，

write(i:10); 會多印出30個空白  

#9118: Re:到底錯了什麼????????????????????????


yywyh (华育王元鸿)

a626. 6. Prime Directive -- HP CodeWars 2007 | From: [114.91.225.92] | 發表日期: 2014-08-28 20:25

var a:array[1..10000] of longint;b,c,j,k,x,y,i:longint;
begin
  while not eof do
  begin
    readln(x);
    k:=0;
    for i:=2 to x do a[i]:=1;
    for i:=2 to x do
    for j:=2 to trunc(sqrt(i)) do
    begin
      if i mod j=0 then a[i]:=0;
    end;
    for i:=2 to x do
    begin
    if k=5 then begin  writeln; k:=0; end;if a[i]=1 then

      begin
      write(i:10);
      k:=k+1;
      end;

    
    end;
  end;
writeln;
readln;
end.

 

 

 

WA (line:8)
答案不正确

您的答案為: 73        79        83        89      ...略 正確答案為: 73        79        83
ZeroJudge Forum