1.在屏幕上打印100-200之间所有既不能被3整除也不能被8整除的整数2.求水仙花数(个,十,百,位的立方和等于自身的三位数).大家帮帮忙哦....急啊!!!!

写的详细点.麻烦大家了,谢谢

第二题的要求2.求水仙花数(个,十,百,位的立方和等于自身的三位数). 要求:设计一个函数IsDaffodil(n)用来判断一个整数是否是水仙花数,然后在主程序中通过调用此函数来完成

穷举；program ee;var a:array[1..200]of integer; b,c,i,j,k:integer;{==========================}procedure hua;beginfor i:=100 to 200 doif (i mod 3<>0)and(i mod 8<>0)then beginb:=b+1;a[b]:=iend;for i=1 to b dowrite(a[i]);end;{===========================}beginhua;end.

第二道大累了，不打了。

水仙花数：指一个三位数 ，满足a3+b3+c3=abc ，则abc是水仙花数。
program shuixian;
var
   a,b,c,n:integer;
begin
   for n:=100 to 999 do
   begin
     a:=n div 100;
     b:=(n div 10)mod 10;
     c:=n mod 10;
     if a*a*a+b*b*b+c*c*c=n then
     writeln(n,'是水仙花数');
   end;
   readln;
end.


ls正解 。