不知道我的程序怎么错了！！！
const
c:array[1..9] of string =('23 * 89 = 2047 = ( 2 ^ 11 ) - 1',
'47 * 178481 = 8388607 = ( 2 ^ 23 ) - 1',
'233 * 1103 * 2089 = 536870911 = ( 2 ^ 29 ) - 1',
'223 * 616318177 = 137438953472 = ( 2 ^ 37 ) - 1',
'13367 * 164511353 = 2199023255551 = ( 2 ^ 41 ) - 1',
'431 * 9719 * 2099863 = 8796093022207 = ( 2 ^ 43 ) - 1',
'2351 * 4513 * 13264529 = 140737488355327 = ( 2 ^ 47 ) - 1',
'6361 * 69431 * 20394401 = 9007199254740991 = ( 2 ^ 53 ) - 1',
'179951 * 3203431780337 = 576460752303423487 = ( 2 ^ 59 ) - 1');
var
  n,l,i:longint;
begin
while not eof(input) do begin
 readln(n);
 case n of
  0..10:l:=0;
  11..22:l:=1;
  23..28:l:=2;
  29..36:l:=3;
  37..40:l:=4;
  41..42:l:=5;
  43..46:l:=6;
  47..52:l:=7;
  53..58:l:=8;
  59..64:l:=9;
 end;
 for i:=1 to l do
  writeln(c[i]);
end;
end.

• Re:这题能交表吧~~~~ (82) wpolly 2007-03-02 20:41:16