三.阅读程序（共4题，每题8分，共计32分）
1.  var
       a,b : integer;
     begin
       read(a);
       b:=(a*(a*a))+1;
       if b mod 3 = 0 then b := b div 3;
       if b mod 5 = 0 then b := b div 5;
       if b mod 7 = 0 then b := b div 7;
       if b mod 9 = 0 then b := b div 9;
       if b mod 11 = 0 then b := b div 11;
       if b mod 13 = 0 then b := b div 13;
       if b mod 15 = 0 then b := b div 15;
       writeln((100*a-b) div 2);
     end.
输入：10
输出：_____
2.  var
       str : string;
       i : integer;
     begin
       str := 'Today-is-terrible!';
       for i := 7 to 11 do
           if str[i] = '-' then str[i-1] := 'x';
       for i := 13 downto 1 do
           if str[i] = 't' then str[i+1] := 'e';
       writeln(str);
     end.
输出：_____
3.  var
       a,b,c,p,q : integer;
       r : array[0..2] of integer;
     begin
       read(a,b,c);
       p := a div b div c;
       q := b - c + a + p;
       r[0] := a * p div q *q;
       r[1] := r[0] * (r[0] - 300);
       if (3 * q - p mod 3 <= r[0]) and (r[2] =r[2]) then
           r[1] := r[r[0] div p mod 2]
       else r[1] := r[r[0] div p mod 2];
       writeln(r[0] - r[1]);
     end.
输入：100 7 3
输出：_____
4.  var
       str : string;
       len,i,j : integer;
       nchr : array[0..25] of integer;
       mmin : char;
     begin
       mmin := 'z';
       readln(str); len := length(str);
       i := len;
       while i>= 2 do begin
           if str[i - 1] < str[i] then break; dec(i);
       end;
       if i = 1 then begin
           writeln('No result!'); exit;
       end;
       for j := 1 to i - 2 do write (str[j] < mmin) then
       fillchar(nchr,sizeof(nchr),0);
       for j := i to len do begin
           if (str[j] > str[i - 1]) and (str[j] < mmin) then
               mmin := str[j];
           inc(nchr[ord(str[j]) - ord('a')]);
       end;
       dec(nchr[ord(mmin) - ord('a')]);
       inc(nchr[ord(str[i - 1]) - ord('a')]);
       write(mmin);
       for i := 0 to 25 do
           for j := 1 to nchr[i] do
               write(chr(i + ord('a')));
       writeln;
     end.
输入：zzyzcccbbbaaa
输出：_____
四.完善程序(前4空，每空2分，后5空，每空4分，共28分）
1.判断质数
题目描述：
     给出一个正整数，判断这个数是否是质数。
输入：
     一个正整数n(1 ≤ n ≤ 10000)。
输出：
     如果n是质数，输出"YES"；否则，输出"NO"。
输入样例：
     10
输出样例：
     NO
程序：
var
   ① : integer;
begin
   read(n);
   if n = 2 then writeln( ② )
   else if ( ③ ) or (n mod 2 = 0) then writeln('NO')
   else begin
       i := 3;
       while i * i <= n do begin
           if  ④  then begin
               writeln('NO'); exit;
           end;
           i := i + 2;
       end;
       writeln('YES');
   end;
end.
2.木材加工
题目描述：
     木材厂有一些原木，现在想把这些木头切割成一些长度相同的小段木头（木头有可能有剩余），需要得到的小段的数目是给定的。当然，我们希望得到的小段越长越好，你的任务是计算能够得到的小段木头的最大长度。木头长度的单位是cm。原木的长度都是正整数，我们要求得到的小段木头的长度也是正整数。
输入：
     第一行是两个正整数N和K（1 ≤ N ≤ 100000，1 ≤ K ≤ 10000），N是原木的数目，K是需要得到的小段的数目。
     接下来的N行，每行有一个1到10000之间的正整数，表示一根原木的长度。
输出：
     输出能够切割得到的小段的最大长度。如果连1cm长的小段都切不出来，输出"0"。
输入样例：
     3 7
     232
     124
     456
输出样例：
     114
程序：
var
   n,k :integer;
   len : array[1..10000] of integer;
   i,left,right,mid : integer;
function isok(t : integer) : boolean;
var
   num,i : integer;
begin
   num := 0;
   for i := 1 to n do begin
       if num >= k then break;
       num :=  ① ;
   end;
   if  ②   then isok := true
   else isok :=false;
end;
begin
   readln(n,k);
   right := 0;
   for i := 1 to n do begin
       readln(len[i]);
       if right < len[i] then right := len[i];
   end;
   inc(right);  ③ ;
   while  ④  < right do  begin
       mid := (left + right) div 2;
       if  ⑤  then right := mid
       else left := mid;
   end;
   writeln(left);
end.

[color=000080]相关链接：[/color][url]http://upload.programfan.com/upfile/200510160934182.exe[/url]
          [url]http://www.programfan.com/club/showbbs.asp?id=112827[/url]

可以问下你这个是哪个赛区的题,跟偶写的都不大一样,偶提高组的写的痛苦

这个貌似是普及组的……………………………………

强 这么快 我不过才考过

其实我本想昨天晚上发的！由于没排好版再+我[em7]，因此……

请问有没有答案啊？最后一个题目怎么做啊？

妈的，这次我只高了个52 分，险进复赛，下次一定要高个高分

喏——答案在这里：
[url]http://www.noi.cn/noi/showNews.jsp?newsId=100020000077[/url]

哇,强.52分就能进复赛,偶考了68分都没进耶.