首页 > 试题广场 >

const c = 2009; var n, p, s,

[填空题] 
const c = 2009;
var
  n, p, s, i, j, t: integer;
begin
  read(n, p);
  s := 0; t := 1;
  for i := 1 to n do
  begin
    t := t * p mod c;
    for j := 1 to i do
      s := (s + t) mod c;
  end;
  writeln(s);
end.

输入：11 2
输出：1
查看答案及解析
添加回答

这道题你会答吗？花几分钟告诉大家答案吧！

提交观点

问题信息

普及 Pascal 完善程序-Pascal 数学
上传者：牛客309901号
难度：
0条回答 339浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号