Algorithm 版 (精华区)

发信人: ssos (存在与虚无·英雄无敌), 信区: Algorithm
标  题: [合集]ring
发信站: 哈工大紫丁香 (2002年01月24日08:48:21 星期四), 站内信件


────────────────────────────────────────
 Darcy (麦克思韦妖)                   于 2001年11月06日10:38:03 星期二 说道:

99上海第二题，//在sino的帮助下
program ring;
{$APPTYPE CONSOLE}
uses SysUtils;
var
  m,n:integer;
function fun(n,i:integer):integer;
begin
  if n mod i=0 then
    fun:=i
  else
    fun:=fun(i,n mod i);
end;
procedure doit;
var
  i:integer;
  co:array[1..100]of integer;
  result,pow,sum:int64;
begin
  fillchar(co,sizeof(co),0);
  for i:=1 to n do
    inc(co[fun(n,i));
  if (odd(n)) then
    inc(co[(n+1) div 2],n)
  else
  begin
    inc(co[n div 2],n div 2);
    inc(co[n div 2 +1],n div 2);
  end;
  result:=0;pow:=1;sum:=0;
  for i:=1 to 100 do
  begin
    pow:=pow*m;
    inc(sum,co[i]);
    result:=result+co[i]*pow;
  end;
  result:=result div sum;
  writeln(result);
end;
begin
  assign(input,'e:\input.txt');reset(input);
  assign(output,'e:\output.txt');rewrite(output);
  while not eof(input) do
  begin
    readln(m,n);
    doit;
  end;
end.

────────────────────────────────────────
 ssos (存在与虚无·戒酒戒网)          于 2001年11月06日12:15:01 星期二 说道:

哪道题？？？

────────────────────────────────────────
 lizhenguo (夸父·追日)               于 2001年11月06日19:51:27 星期二 说道:

解释一下？

────────────────────────────────────────
 Darcy (麦克思韦妖)                   于 2001年11月07日09:14:42 星期三 说道:

项连
输入m,n
m为颜色数，n为位置数，求可组成的项链数（不同）
m<7 n<51 求出得数<int64

────────────────────────────────────────
 lizhenguo (夸父·追日)               于 2001年11月07日10:47:44 星期三 说道:

                    ~~~~~maxint64,实际数值为10e17

────────────────────────────────────────