1樓：匿名使用者
program ex;
varn,i:integer;//s是輸入的數，i是迴圈變數s:longint;//統計和的變數
begin
readln(n);//讀入n
s:=0;//s賦初值
for i:=21 to n do//迴圈if (i mod 21=0) then s:=s+i;//如果迴圈變數除以3*7的餘數為0，那麼s就累加。
writeln(s);//迴圈過後，輸出統計變數send.
2樓：雷達
var i,n,s:longint;
begin
readln(n);
s:=0; i:=21;
repeat s:=s+i; i:=i+21; until i>n;
writeln(s);
end.
3樓：匿名使用者
varn,ans:longint;
begin
readln(n);
for i:=3*7 to n do if (n mod 3=0) and (n mod 7=0) then ans:=ans+i;
writeln(ans);
end.
時間有限，只能直接打給你，沒有執行，程式有問題的話找我。
4樓：匿名使用者
varn,ans:longint;
begin
ans:=0;
for i:=21 to n do
if (i mod 21=0) then ans:=ans+i;
writeln(ans);
end.
沒執行，應該沒錯，有錯你hi我
5樓：匿名使用者
很簡單,先讀入n,再用一for迴圈,如果被3且被7整除則,加入一個變數中,最後跳出迴圈輸出變數。 一一一原創一一一
求1000以內能被5整除的數的和的程式
數，輸出它，則劃去其後能被2整除的數，然後看3，因為3不能被2整除，則3未被劃去，我們認為它是質數，輸出它，然後劃去3的倍數，如此繼續，遇到被劃去的數就越過，遇到未被劃去的數就輸出，並劃去其倍數，批量輸出質數這種方法效率是我見過最高的，被稱為埃色特尼篩法，你可以通過一個boolean陣列和2個巢狀迴...
100以內能被3整除的數有幾個，100以內能被3整除的數
用高斯函式取整，多少個倍數都能取出來 高斯函式 x 如果整數取整，如果是小數取不大於小數的最近的那個整數。100內有多少3的倍數 100 3 33 100內有多少2的倍數 100 2 50 100以內多少個4的倍數 100 4 25 100以內多少5的倍數 100 5 20 100內被2跟3同時整除...
用c語言求出20以內能被2整除的數或者又能被3整除的數之和
include int main printf d res return 0 include int main printf d n ans return 0 用c語言編輯，計算1 1000以內能被3整除的數的個數以及它們的和！急需 include int main void printf 個數 是...