首页 > 试题广场 >

Program ex402; const m : arr

[填空题] 
Program ex402;
const
  m : array[0..4] of integer = (2, 3, 5, 7, 13);
var
  i, j : integer;
  t : longint;
begin
  for i:=0 to 4 do
  begin
    t := 1;
    for j:=1 to m[i] - 1 do t := t * 2;
    t := (t * 2 - 1) * t;
    write (t, ' ');
  end;
  writeln;
end.
输出 : 1
查看答案及解析
添加回答

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

提交观点

问题信息

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

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

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