pascal编程：求0-7所能组成的奇数个数

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/06/09 15:22:32

type st = set of byte;
var s:st;
function search(a:longint;s:st):integer;
var i:longint;
begin
  if(s = [])then begin
    if(a mod 2 = 1)then begin
      exit(1);
    end
    else
      exit(0);
  end;
  search:=0;
  for i:=0 to 7 do
    if(i in s)and((a>0)or(i<>0))then
      search:=search+search(a*10+i,s-[i]);
end;
begin
  writeln(search(0,[0,1,2,3,4,5,6,7]));
end.
修改下,原来那个算的是偶数个数.

pascal编程：求0-7所能组成的奇数个数 C语言奇数个数求0—4所能组成的无重复的5位数中奇数的个数.无重复的5位数是指0-4仅能出现一次.才能体现0—4呢. 编程输出100至500之间能被7整除的奇数的个数求VB编程：任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数. vb编程：求1000以内所有能被7整除的数的个数 pascal编程给出一个n,求前n个奇数的总和输入一行,一个整数n 输出一行,表示总和用pascal 输入N个数,计算偶数、奇数和零的个数 [汇编语言]编程实现统计一个数组中奇数的个数 Pascal编程：读入N个数,打印其中的最大数及其位置号用TURBO C语言编程计算机并输出0-100之间能被7整除的奇数之和 pascal 编程 1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、这道pascal编程题怎么求?