关于pascal计算2^n……(1

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/04/29 04:59:42

关于pascal计算2^n……(1

Var a,b,c:Array[1..201]Of word; i,j,k,m,n,p,t:Longint; Begin Readln(p);Writeln(Trunc(Ln(2)/Ln(10)*p)+1); k:=0; repeat inc(k); a[k]:=p mod 2; p:=p div 2 until p=1; b[1]:=2;n:=1; for m:=k downto 1 do begin fillchar(c,sizeof(c),0); for i:=1 to n do for j:=1 to n do begin if i+j-1>200 then break; t:=i+j-1; inc(c[t],b[i]*b[j]); inc(c[t+1],c[t] div 10); c[t]:=c[t]mod 10; end; if a[m]=1 then begin b:=c;fillchar(c,sizeof(c),0); for i:=1 to t do begin c[i]:=c[i]+b[i]*2; if c[i]>9 then begin inc(c[i+1]);c[i]:=c[i]mod 10 end; end; end; n:=t+1;b:=c end; For i:=200 Downto 1 Do Begin Write(c[i]); If i Mod 50=1 Then Writeln End; end. 这类似于NOIP2003 第三道 “麦森数”
麻烦采纳,谢谢!

关于pascal计算2^n……(1 pascal 循环结构计算1+2+3+4.+n之和、奇数和与偶数和. 用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?用pascal编程求初级pascal题目答案：输入正整数n（整型）,求n!除以2013的余数（n!=1*2*3*….*n） Pascal 程序题计算：e=1+1/（2!）+1/（3!）+ …… +1/（n!）（1）求到第50项（2）求最后一项小计算1*2*3*.*n>1000的第一个n值（用pascal语言,while循环和repeat循环来做）关于极限的计算lim n趋于0【（1+2+3+…+n）/n - n/2】 lim n趋于0 (1+ 1/2 + 1/4 pascal问题两道：1.一张n元人民币换成1元、2元、5元的零钱,编程计算共有多少种方法? 3n+1问题pascal解答 pascal For i:=1 to n Pascal语言某自然数N(1 3n+1问题 pascal语言