1樓：
這個問題主要用到取模（餘數）的函式mod 和 整除函式 div
個位=這個數除10的餘數 （比如6的個位=6 ÷ 10=0....6,104的個位=104 ÷ 10=10.....4）
小於四位數的百位=這個數整除100 (比如10的百位=10 ÷ 100=0,502的百位=502 ÷ 100=5)
小於四位數的十位=這個數除10的結果再除10的餘數 (如204=204 ÷ 10=20 20 ÷10=2.....0)
（個位+百位）整除十位=(個位+百位)除十位的餘數為0，所以就=(個位+百位) mod 10=0
vari:longint;
begin
repeat
inc(i);
if ((i mod 10)+(i div 100)) mod (i div 10 mod 10)=0 then
writeln(i);
until i>999;
end.
2樓：匿名使用者
program tt；
varj,n,n1,n2,n3:integer;
begin
n:=0;
repeat
n:=n+1;
j:=n
n1:=j mod 10;
j:=j div 10;
n2:=j mod 10;
n3:=j div 10;
if (n1+n2+n3=10) then write(n:4);
until n=999;
end.
一定要選我啊，不懂可以繼續問
3樓：匿名使用者
var i,n,a,b,c:longint;
function g(l:longint):longint;
begin
a:=l div 100;
b:=(l mod 100)div 10;
c:=l mod 10;
if b=0 then g:=-1
else g:=(a+c)mod b;
end;
begin
n:=0;
repeat
n:=n+1;
if g(n)=0 then i:=i+n;
until n=999;
writeln(i);
end.
高數，這兩道題如何做這兩道題怎麼做
高數我大一學的，現在都忘了，不過，我建議你先好好想想，看看能不能做出了來，因為這是一個思維邏輯的訓練過程，高等數學其實是開始，下面的路還長，實在不會做，可以請教同學的解題思路，但是千萬千萬不要抄別人的，因為抄了別人的，自己還是不會，遇到相同原理的題目，自己照樣做不出來。因此抄襲沒有必要。同學，數學確...
怎樣做閱讀題？如何做好閱讀題？
做閱讀理解題的三個小竅門，記得收藏。1 看清題意，帶著問題去多讀幾遍文章。2 自私讀文章，很多科普類的，文中都有答案。看題，閱讀，做題，閱讀，做題。把全文讀了分析了，再看題，再做題。如何做好閱讀題？最先 閱讀是重要，一般來說，學員做閱讀理解時有2種狀況，有些人習慣性首先看閱讀材料再看題，有些人習慣性...
如何做好文綜選擇題，如何做歷史選擇題？
選擇題在文綜裡具有舉足輕重的作用，因為問答題的差距都不大，所以選擇題就成了文綜成敗的關鍵，做好選擇題首先要把 政治 歷史 地理 三科的基礎知識爛熟於心，你要知道選擇題就是根據一些基礎知識點在命題，那些較難的就是知識點的綜合運用 平簡單的題你可以憑某個知識點解答出來，碰到稍微難一點就想想到有幾個知識點...