第 八届信息学奥赛普及组复赛答案精品参考资料.docVIP

第八届信息学奥赛普及组复赛答案（Pascal)第一题： program c1; var K: Byte; n: Longint; Sn: Extended; begin Readln(K); Sn := 0; n := 0; Repeat Inc(n); Sn := Sn + 1 / n; Until Sn k; Writeln(n); end. 第二题： program c2; const MaxN = 20; var N, M, i: Byte; ans, s: Longint; x: array[1 .. MaxN] of Longint; f: array[1 .. 10000] of Byte; p: array[1 .. 1229] of Integer; procedure Get_Prime; var i, j, s: Integer; begin s := 0; f[1] := 0; for i := 2 to 10000 do f[i] := 1; for i := 2 to 10000 do if f[i] = 1 then begin Inc(s); p[s] := i; j := 2 * i;