pascal for语句问题1、输入一个自然数,输出这个自然数所有因子的和.2、已知数列1,1,2,
答案:2 悬赏:70 手机版
解决时间 2021-01-27 18:14
- 提问者网友：不爱我么
- 2021-01-27 08:54
pascal for语句问题1、输入一个自然数,输出这个自然数所有因子的和.2、已知数列1,1,2,
最佳答案
- 五星知识达人网友：千夜
- 2021-01-27 09:10
1.program kkk;var a,b,i:longint;beginread(a);b:=0;for i:=1 to a do if a mod i=0 then b:=b+i;writeln(b);end.2.program gds; var a:array[0..100000] of longint; i,m,n,l:longint;begin read(n); a[0]:=0; a[1]:=1; l:=1; repeat{用repat循环好一点} inc(l); a[l]:=a[l-1]+a[l-2]; until n=a[l]; m:=0; for i:=1 to l do m:=m+a[i]; writeln(m);end.3.program gds; var a:array[1..100000] of longint; n,i:integer; max,min,total:longint; adv:real;begin read(n); for i:=1 to n do read(a[i]); max:=a[1]; min:=a[1]; total:=0; for i:=1 to n do begin total:=total+a[i]; if max<a[i] then max:=a[i]; if min>a[i] then min:=a[i]; end; adv:=total/n; writeln(max,' ',min,' ',adv);end.4.program gds; var a:array[1..10] of integer; i,min,w:integer;begin for i:=1 to 10 do read(a[i]); min:=a[1]; for i:=2 to 10 do if min>a[i] then begin
全部回答
- 1楼网友：鸽屿
- 2021-01-27 10:01
感谢回答
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯