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


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

學校 : 澳門濠江中學
編號 : 39072
來源 : [182.93.48.18]
最後登入時間 ：
2016-05-06 14:12:50
a626. 6. Prime Directive -- HP CodeWars2007 | 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)

學校 : 臺中市私立立人高級中學
編號 : 37201
來源 : [42.76.126.195]
最後登入時間 ：
2021-02-17 13:14:58
a626. 6. Prime Directive -- HP CodeWars2007 | From: [61.221.123.238] | 發表日期 : 2014-04-15 12:55
你在最後要換行 
#8931: Re:到底錯了什麼????????????????????????


davidhsu (David)

學校 : 不指定學校
編號 : 12295
來源 : [36.237.202.120]
最後登入時間 ：
2020-12-23 11:36:28
a626. 6. Prime Directive -- HP CodeWars2007 | 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 (华育王元鸿)

學校 : 上海市娄山中学
編號 : 40513
來源 : [58.37.55.65]
最後登入時間 ：
2018-11-24 09:17:11
a626. 6. Prime Directive -- HP CodeWars2007 | 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