作业帮pascal 编程 1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、要求用5元钱正好买100只纽扣,其中金属纽扣每只5角,有机玻璃纽扣每只1角,塑料纽扣1分钱买3个,方案唯一吗?
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/13 00:39:10
pascal 编程 1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、要求用5元钱正好买100只纽扣,其中金属纽扣每只5角,有机玻璃纽扣每只1角,塑料纽扣1分钱买3个,方案唯一吗?
pascal 编程
1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.
2、要求用5元钱正好买100只纽扣,其中金属纽扣每只5角,有机玻璃纽扣每只1角,塑料纽扣1分钱买3个,方案唯一吗?请编程输出各种按钮各买了多少?
3、“鸡兔同笼”,一只大笼子里面装着鸡和兔子两种动物,现在知道两种小动物总共有51个头,178条腿,问鸡和兔子各有多少只?
这三题用 直到型循环
pascal 编程 1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、要求用5元钱正好买100只纽扣,其中金属纽扣每只5角,有机玻璃纽扣每只1角,塑料纽扣1分钱买3个,方案唯一吗?
一楼的程序有问题,我的程序如下
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.