作业帮 > 综合 > 作业

用free pascal编一个程序,如下

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/04/29 16:54:12
用free pascal编一个程序,如下
用free pascal 编程 Description
果园里种了很多桃树,当桃树开始结果的时候,猴子便会成群结队地前来摘桃.
猴子们第一天会摘掉桃子的一半还多一个,第二天再摘第一天剩下的一半还多一个,以后每天均摘掉上一天剩下的一半还多一个,到第N天时,树上就只剩下两个桃子了.请问果园里原来共多少个桃子?
Input
输入正整数N表示天数 .
Output
输出果园里原来共有的桃子数.
用free pascal编一个程序,如下
program long;
var
i,j,k,a,b:longint;
begin
readln(a);
k:=2;
for i:=1 to a do k:=(k+1)*2;
writeln(k);
end.