free pascal 练习题

显示全部楼层 · 2013-8-19 20:11:24

program wapiknow;var f:array[1..60] of int64;
x,i:longint;beginf[1]:=1;f[2]:=2;for i:=3 to 60 do f:=f[i-1]+f[i-2];readln(x);writeln(f[x]);end.当n比较大时要用高精度.希望我的回答能帮到你....

千问 · 2013-8-19 20:11:24

2*2(4)=1*4=2*2=4*1【3】2*3(6)=1*6=2*3=3*2=6*1【4】2*4(8)=1*8=2*4=4*2=8*1【4】2*5(10)=1*10=2*5=5*2=10*1【4】2*6(12)=1*12=2*6=3*4=4*3=6*2=12*1【6】......这样的顺序不难看出，于是可以求得如下程序：var...

千问 · 2013-8-19 20:11:24

var n,i,t:longint;begin readln(n); for i:=1 to 2*n do if 2*n mod i=0 then t:=t+1;; writeln(t);end....