1樓：匿名使用者
var a:array[1..256]of integer;
x,n,i,j:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln;
i:=1;
while ij:=i+1;
whie j<=n do begin
if a[j]=a[i] then beginfor x:=j to n-1 do a[x]:=a[x+1];
dec(n);
end;
inc(j);
end;
inc(i);
end;
for i:=1 to n do write(a[i],' '); writeln;
readln;
end.
2樓：匿名使用者
begin
for a:=1 to 28 do
for b:=a+1 to 29 do
for c:=b+1 to 30 do
for d:=c+1 to 31 do
for e:=d+1 to 32 do beginf:=100-a-b-c-d-e;
if f>e then
writeln(a,' ',b,' ',c,' ',d,' ',e,' ',f);
end;
end.
java程式設計題，怎麼求出陣列中重複數字的出現次數，並按次數從大到下排序
include include include using namespace std int count 0 void countnum int a,int start,int finish else ins key public static void main string args arra...
用8組成沒有重複數字的兩位數，組成多少個個位是雙數的兩位數
個位有3種情，每種情況又各有3種，3乘3得9，既有 9個個位是雙數的兩位數。比如個位是2的兩位數有3個，同樣個位是4或8的兩位數各是3個，所以個位是雙數的兩位數是9個。用2.3.4.8組成沒有重複數字的兩位數，能組成多少個個位是雙數的兩位數？個位有3種情，每種情況又各有3種，3乘3得9，既有 9個個...
由數字2，3，4，5，6所組成的沒有重複數字的四位數中
奇數的最後一位只能是3.5 以3結尾56相鄰的數有3 2 2個 把5.6看成一個數，四位數變成三位數，除去3，有兩位可以 在3個數中選 2.4.56，三選二有3 2種選擇，而56排列不分先後又有兩種選擇 以5結尾的數有3 2個 5結尾倒數第二位為6，還剩三個數可以選，三選二有3 2種選擇 一共有3 ...