pascal 编程 1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/10 07:40:58

pascal 编程
1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.
2、要求用5元钱正好买100只纽扣,其中金属纽扣每只5角,有机玻璃纽扣每只1角,塑料纽扣1分钱买3个,方案唯一吗?请编程输出各种按钮各买了多少?
3、“鸡兔同笼”,一只大笼子里面装着鸡和兔子两种动物,现在知道两种小动物总共有51个头,178条腿,问鸡和兔子各有多少只?
这三题用直到型循环

一楼的程序有问题,我的程序如下
1
var i,j:int64;
begin
i:=1;
repeat
j:=i;
repeat
if ((j mod 101) and (j mod 100)) then break;
j:=j div 10;
until j=0;
if j=0 then writeln(i);
i:=i+1;
until i>200000000;
end.
2
var i,j,k:integer;
begin
i:=0;
repeat
j:=0;
repeat
if(100-i-j)mod 3=0 then
begin
k:=(100-i-j) div 3;
if i*50+j*10+k*1=500 then writeln(i,' ',j,' ',100-i-j);
end;
j:=j+1;
until j>50;
i:=i+1;
until i>20;
end.
3
var i:integer;
begin
i:=0;
repeat
if i*2+(51-i)*4=178 then writeln('ji',i,' tu',51-i);
i:=i+1;
until i>89;
end.

pascal 编程 1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、统计1～10000000之间只含有数字1和0的数的个数（如1,10,11,等）用pascal　rep．．． pascal编程求1-10000之间所有质因数的各位数字之和和等于该数各位数字只和的数字编程：生成20个1到100之间的随机数,统计其中1位数,2位数,3位数的个数. java编程：产生10个 -100到100 之间的随机数,统计这些数字中正数和负数各有多少个 VF编程统计1~100之间3的倍数的个数和7的倍数的个数. 编程：输出100至1000之间能同时被5和7整除的数,每行输出10个数,统计十个数,并求出这些数之和如何用pascal语言,把一个自然数转换为二进制,并统计1和0的个数编程求1到100之间是s的倍数的奇数以及这些数的和 C语言编程输出10个数字,以-1结尾,统计其中带8或能被8整除的数字的个数,并输出这些数.要求用到数组. free pascal 程序:打印由1,2,3,4四个数字组成的所有四位数,并统计个数. C语言编程题：统计10到99中个位为奇数,十位为偶数的整数个数及这些数的和.