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