pascal程式設計1到100奇數和
1樓：神來了
varb,c:longint;
beginc:=0; 計數器歸零；
for b:=1 to 100 do 迴圈if b mod 2=1 then c:=c+b; 如果b是奇數計數器就加上b
write(c); 輸出結果。
end.
用pascal語言編寫乙個程式統計票數
2樓：網友
var a:array[1..1000] of longint;
i,n,j,k:longint;
beginreadln(n);
repeat
read(k);
if k<>-1 then a[k]:=a[k]+1;
until k=-1;
for i:=1 to n do writeln(i,' ',a[i]);
end.樣例輸出似乎有點問題。
用pascal語言算100以內偶數與奇數的和
3樓：小紙
var od,even,num:integer; begin od:=0;even:
0; for num:=1 to 100 do if odd(num) then od:=od+num else even:
even+num; writeln('odd=',od,' even=',even); end. 說明：odd為單數的和，even為雙數的和。
pascal程式設計：求0-7所能組成的奇數個數
4樓：
type st = set of byte;
var s:st;
function search(a:longint;s:st):integer;
var i:longint;
beginif(s = )then begin
if(a mod 2 = 1)then beginexit(1);
endelse
exit(0);
end;search:=0;
for i:=0 to 7 do
if(i in s)and((a>0)or(i<>0))thensearch:=search+search(a*10+i,s-[i]);
end;begin
writeln(search(0,[0,1,2,3,4,5,6,7]))
end.修改下，原來那個算的是偶數個數。
5樓：網友
題目是不是還缺乙個限制條件？不限定範圍，難不成可以組成無限大的奇數？
程式設計free pascal n 的立方表示成n個奇數和、
6樓：匿名使用者
題目應為：程式設計求n的平方，用從1開始的n個奇數和的演算法完成。
function powern(n:integer):longint;
beginif n=1 then powern:=1else powern:=powern(n-1)+2*n-1;
end;begin
writeln(powern(1000));
end.
用pascal 輸入n個數，計算偶數、奇數和零的個數
7樓：旋律
參考程式： program count; var a, b, c, n, m, i: integer; begin read(n); a :
0; b := 0; c := 0; for i :
1 to n do begin read(m); if m mod 2 = 0 then inc(a) else inc(b); if m = 0 then inc(c); end; writeln(a, ' ', b, ' ', c); end .
記得采納啊。
c語言程式設計 輸入奇數，例如輸入9，求1 3 5 7 9的值。輸出為 1 3
include stdio.h void main while num 1 printf 結果輸出 d n sum main printf d sum include void main printf b d t 設計c語言程式，把由鍵盤輸入的數列 如1，3，5，7，9 按相反的順序 如9，7，5，...
怎麼用C語言程式設計計算，怎麼用C語言程式設計計算1 2 1 3 1 4？
c語言求以上算式，參考 如下 include int main c語言 分數計算怎麼編 如1 1 2 1 3 1 4 1 n 需要準備的材bai料分別du有 電腦 c語言編譯器。1 首zhi先，dao開啟c語言編譯器專，新建一個初始屬.cpp檔案，例如 test.cpp。2 在test.cpp檔案中...
判斷奇數偶數的C 語言程式，C 程式設計判斷奇偶數
通過理解這個程式，發現了以下幾點問題 對windows.h這個標頭檔案的引用可以去掉，程式中並沒有用到該標頭檔案 t 和 n 這種符號，大概是 t 和 n 的意思，如果是轉義符號，需要用反斜線 number變數不應該使用，它不是陣列，從上下文看不出來用它的意義。附上修改後的程式如下 include ...