作业帮 > 综合 > 作业

free pascal的问题 (用while语句解答)

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/16 02:10:44
free pascal的问题 (用while语句解答)
猴子吃枣问题,猴子摘得的一堆枣,第一天吃了一半,还嫌不过瘾,又吃了一个;第二天又吃了剩下的一半零一个:以后每天如此,到第十天,猴子一看只剩下一个了.问最初由几个枣?
(用while语句解答)
在加一道 一起做了的给分
求2-100中的每个数的质因子,输出如下格式
2=2
3=3
4=2*2

100=2*2*5*5
program ex_1;
var
n,tot:longint;
begin
n:=1; tot:=1;
while n