切换到宽版
  • 4534阅读
  • 0回复

2004联赛阅读题第4题求思路 [复制链接]

上一主题 下一主题
离线zhuang
 
只看楼主 正序阅读 0 发表于: 2006-10-17
program program4;
const u: array[0..2] of integer = (1,-3,2);
      v: array[0..1] of integer = (-2,3);
var i, n, sum:integer;
function g(n:integer): integer;
var i, sum:integer;
begin
  sum:=0;
  for i:=1 to n do inc(sum,u[i mod 3]*i);
  g:=sum;
end;
begin
  sum:=0;
  read(n);
  for i:= 1 to n do inc(sum,v[i mod 2]*g(i));
  writeln(sum);
end.
输入:103
输出:__________.
...多思考,少说话...
快速回复
限100 字节
 
上一个 下一个