pascal for语句问题1、输入一个自然数,输出这个自然数所有因子的和.2、已知数列1,1,2,3,5,8,…….,N.输出前N项的和.3、输入N个自然数,输出最大数,最小数及平均数.4、输入十个自然数(0
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 16:12:42
![pascal for语句问题1、输入一个自然数,输出这个自然数所有因子的和.2、已知数列1,1,2,3,5,8,…….,N.输出前N项的和.3、输入N个自然数,输出最大数,最小数及平均数.4、输入十个自然数(0](/uploads/image/z/1536917-5-7.jpg?t=pascal+for%E8%AF%AD%E5%8F%A5%E9%97%AE%E9%A2%981%E3%80%81%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%2C%E8%BE%93%E5%87%BA%E8%BF%99%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%E6%89%80%E6%9C%89%E5%9B%A0%E5%AD%90%E7%9A%84%E5%92%8C.2%E3%80%81%E5%B7%B2%E7%9F%A5%E6%95%B0%E5%88%971%2C1%2C2%2C3%2C5%2C8%2C%E2%80%A6%E2%80%A6.%2CN.%E8%BE%93%E5%87%BA%E5%89%8DN%E9%A1%B9%E7%9A%84%E5%92%8C.3%E3%80%81%E8%BE%93%E5%85%A5N%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%2C%E8%BE%93%E5%87%BA%E6%9C%80%E5%A4%A7%E6%95%B0%2C%E6%9C%80%E5%B0%8F%E6%95%B0%E5%8F%8A%E5%B9%B3%E5%9D%87%E6%95%B0.4%E3%80%81%E8%BE%93%E5%85%A5%E5%8D%81%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%EF%BC%880)
pascal for语句问题1、输入一个自然数,输出这个自然数所有因子的和.2、已知数列1,1,2,3,5,8,…….,N.输出前N项的和.3、输入N个自然数,输出最大数,最小数及平均数.4、输入十个自然数(0
pascal for语句问题
1、输入一个自然数,输出这个自然数所有因子的和.
2、已知数列1,1,2,3,5,8,…….,N.输出前N项的和.
3、输入N个自然数,输出最大数,最小数及平均数.
4、输入十个自然数(0
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层次新生吧.