pascal 编程 1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、要求用5元钱正好买100只纽扣,其中金属纽扣每只5角,有机玻璃纽扣每只1角,塑料纽扣1分钱买3个,方案唯一吗?

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 09:05:20
pascal编程1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、要求用5元钱正好买100只纽扣,其中金属纽扣每只5角,有机玻璃纽扣每只1角,塑料纽扣

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.

pascal语言编程问题(free pascal求1—N中的素数的个数.(1 pascal编程求1+3+5+...+n一定要是自己是过的,要用pascal! visual编程:统计1到100中能被5整除的正整数之和,并输出. pascal 编程 1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、要求用5元钱正好买100只纽扣,其中金属纽扣每只5角,有机玻璃纽扣每只1角,塑料纽扣1分钱买3个,方案唯一吗? Pascal编程!今天就要!1)从七张不同的扑克中任取三张,有几种组合方法?编程输出所有组合形式每行一组,与总数.2)编程求出所有不超过1000的自然数,含有数字3的自然数,并统计自然数的总数,每 编程:生成20个1到100之间的随机数,统计其中1位数,2位数,3位数的个数. pascal编程s=1+2/1+3/1+4/1+5/1.+100/1 pascal编程 数字图形打印下列图形: 1 121 12321 1234321 123454321 1234321 12321 121 1 pascal编程 s=1*2+2*3+3*4+.n*(n+1) pascal编程输出图形 7 6 5 8 1 4 9 2 3 10 11 pascal编程 在一定范围内的(1~10^9) 某两个数的公倍数与公约数如题 编程输入一个自然数x,求这个自然数的所有约数(包括1和x本身)之和 pascal语言 pascal 编程 由小到大编的找出10个数,它们满足被2,3,5余时,余数都为1 1.编程(pascal):输入三角形的三个边,判断它是何类型的三角形(等边三角形?等腰三角形?一般三角形?) pascal 编程输入下列图案 pascal 输入n(1 pascal 输入n(1 pascal 第1题 13号星期几(riqi.pas)【问题描述】编程统计从1900年1月1日(当天是星期一)开始经过的N年当中,每个月的13号是星期一、星期二、星期三……星期日的次数分别是多少?【输入】共1行,1个