pascal for语句问题

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/04/29 16:18:11

pascal for语句问题
1、输入一个自然数,输出这个自然数所有因子的和.
2、已知数列1,1,2,3,5,8,…….,N.输出前N项的和.
3、输入N个自然数,输出最大数,最小数及平均数.
4、输入十个自然数（0

1.
program kkk;
var a,b,i:longint;
begin
read(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
    min:=a[i];
    w:=i;
   end;
writeln(min,' ',w);
end.
5.
program gds;
var i,k,l:integer;
begin
for i:=1 to 999 do
  begin
   k:=i;
   if k mod 3=0 then
    repeat
     l:=k mod 10;
     k:=k div 10;
     if l=5 then
      begin
       writeln(i);
       break;
      end;
    until k=0;
  end;
end.
纯粹简单题大全啊,数组加循环,你是C层次新生吧.

pascal for语句问题 pascal 关于case语句的问题 pascal问题,请用while语句做出, free pascal的问题（用while语句解答） free pascal case语句的格式问题（谢谢, free pascal常见语句 pascal 语言 while 语句 pascal if...then 语句 Pascal if语句? 求pascal高手.pascal中的if语句. lingo的for语句问题计算式子的值：s=1+2+3+...+100（编程 pascal语言 for语句）