1樓：匿名使用者
program exe;
var z,i,s,n:integer;
begin
(z:=0;)
for i:=1 to 10000 do
begin
s:=0;
n:=i;
repeat
s:=s+n mod 10;
n:=n div 10;
until n=0;
if s mod 7=0 then
begin
write(i:6);
(z:=z+1;
if z mod 10=0 then
writeln;)
end;
end;
end.
打（）處是為了輸出美觀，可有可無。
2樓：
var i,j,a,b,c,k:integer;
begin
k:=0;
for i:=1 to 1000 do
begin
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
if (a+b+c)mod 7=0
then begin
write(i,' ');
inc(k);
if k mod 10=0 then writeln;
end;
end;
writeln;
end.
其中inc(k);
if k mod 10=0 then writeln;
是為了輸出美觀。
3樓：匿名使用者
var i,j,k,w:integer;
begin
i:=0;
repeat
for j:=0 to 9 do
for k:=0 to 9 do
for w:=0 to 9 do
begin
if (i+j+k+w)mod 7=0 then writeln(i,j,k,w);
i:=i+1;
until i>9;
end.
4樓：匿名使用者
var i,a,b,c,d:integer;
begin
for i:=1 to 9999 do
begin
a:=i div 1000;
b:=i div 100 mod 10;
d:=i mod 10;
c:=i-a*1000-b*100-d;
if a+b+c+d=7 then writeln(i);
end;
end;
a的各位數字之和等於7,那麼a就稱為「吉祥數」，把所有的「吉
煉獄天羊 7.1個 16 25 34 43 52 61 70.7個 106 115 124 133 142 151 160 205 214 223 232 241 250 700.1 7 7 2 28個 1006 1015 1024 1033 1042 1051 1060 1105 1114 112...
在所有五位數中,各位數字之和等於43且能被11整除的數有哪些
一元六個 設這樣的五位數為abcde 能被11整除的數的特點是，奇數字的數字和減去偶數字的數字和，所得差為11的倍數。那麼根據題意，知道一下關係 a b c d e 43 a c e b d 11n n為自然數 上下式相加，得 2 a c e 43 11n由於a c e都是不大於9的數字，所以2 a...
所有的三位數中，個位數字之和等於15的共有多少個
69個 1開頭的5個 2開頭的6個 3開頭的7個 4開頭的8個 5開頭的9個 6開頭的10個 7開頭的9個 8開頭的8個 9開頭的7個 69個 具體如下 159,168,177,186,195 249,258,267,276,285,294 339,348,357,366,375,384,393 4...