有一个三位数,它的各位数字之和的11倍恰好等于它自身,请编程求出这个三位数.8.在自然数中,如果一个

网友回答

program num;
vara,b,c,i,tot:integer;
beginfor i:=100 to 999 do {枚举所有的三位数}
begina:=i mod 10; {a是 这个三位数 的个位上的数字}
b:=(i mod 100)div 10;{ b 是 这个三位数的 十位上的数字}
c:=i div 100; {c 是 这个三位数的百位上的 数 字 }
tot:=(a+b+c)*11;{取a,b,c的和的11倍}
if tot=i then write(i);
end;end.希望你能够看懂.