梅森数...没有偶数的吧^_^
> 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:同学....我很同情你..... (47) palmtenor 2005-03-06 22:41:00
• Re:同学....我很同情你..... (19) dearboy 2005-03-07 11:53:22
  • Re:同学....我很同情你..... (8) dearboy 2005-03-07 11:53:34