pascal for语句问题1、输入一个自然数,输出这个自然数所有因子的和.2、已知数列1,1,2,

pascal for语句问题1、输入一个自然数,输出这个自然数所有因子的和.2、已知数列1,1,2,

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

感谢回答

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息