UC知道pascal题目~
来源：百度知道 编辑：UC知道 时间：2024/05/14 20:08:07
（1）计算1+2+3+4……+100之和。
程序如下：
program p4_22(input，output);
var
i,s:integer;
begin
s:=0;
for i:=1 to 100 do;
s:=s+i;
writeln(s)
end.
思考：对程序稍加改动，试着算出以下算式：
s=2+4+6+……+100;
s=1+1/2+1/3+……+1/100;
s=12+22+32+……+1002.
（2）编程找出水仙花数
程序如下：
program p4_22(input，output);
var
i,s:integer;
begin
s:=0;
for i:=1 to 100 do;
s:=s+i;
writeln(s)
end.
思考：对程序稍加改动，试着算出以下算式：
s=2+4+6+……+100;
s=1+1/2+1/3+……+1/100;
s=12+22+32+……+1002.
（2）编程找出水仙花数
1 var
i,s:integer;
begin
s:=0;
for i:=1 to 50 do
s:=s+2*i;
writeln(s);
end.
2 var
i:integer; s:real;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln(s:0:2);
end.
3 var
a,i:integer; s:integer;
begin
s:=0; a:=12;
for i:=1 to 100 do
begin
s:=s+a;
a:=a+10;
end;
writeln(s);
end.
(2)
var
a,i:integer; s:integer;
function f(v:integer):integer;
begin
f:=v*v*v;
end;
begin
for i:=100 to 999 do
if (f(i div 100)+f((i mod 100) div 10)+f( i mod 10))=i then writeln(i);
end.
希望能帮助你！！
// s=2+4+6+……+100;
s:=0;
for i:=1 to 100 do
if i mod 2=0 then s:=s+i;
// s=1+1/2+1/3+……+1/100;
s:=0;
for i:=1 to 100 do
s:=s+1/i; {s定义为实型}
// s=12+22+32+……+1002
s: