用帕斯卡 1、打印出100至200之间的奇数 2\求出能被5整除的所有四位数的和 3、在自然数中,如果一个三位数如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。如:153

用帕斯卡 1、打印出100至200之间的奇数 2\求出能被5整除的所有四位数的和 3、在自然数中,如果一个三位数如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。如:153
用帕斯卡 1、打印出100至200之间的奇数 2\求出能被5整除的所有四位数的和 3、在自然数中,如果一个三位数
如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。如:153=13+53+33，所以153是一个水仙花数。求所有的水仙花数。

用帕斯卡 1、打印出100至200之间的奇数 2\求出能被5整除的所有四位数的和 3、在自然数中,如果一个三位数如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。如:153
打印出100至200之间的奇数
var
i:integer;
begin
for i:=100 to 200 do
if i mod 2<>0 then write(i,' '); 如果整除2不等于0 就说明是基数,然后打印.
end.
求出能被5整除的所有四位数的和
var
i,h:longint;
begin
for i:=1005 to 9995 do
begin
if i mod 5=0 then inc(h,i); inc(h,i)就是h:=h+i
end;
write(h);
end.
水仙花数
var
a,b,c,d:integer;
begin
for d:=100 to 999 do d 就是判断这个数满足条件吗
begin
a:=d div 100; a是d的百位数
b:=d div 10 mod 10 ; b是d的十位数
c:=d-a*100-b*10; c是d的个位数
if a*a*a+b*b*b+c*c*c=d then write(d:6); 如果d满足条件,就打印d.
最终,会打印出所有三位水仙花数.
end;
end.
希望满足你的意愿.