编程 6道编程题 十万火急 请高手帮忙3

来源:百度知道 编辑:UC知道 时间:2024/05/18 07:24:41
1、编程打印下列图形:

2、求1!+2!+…+10!的值。

3、一个炊事员上街采购,用500元钱买了90只鸡, 其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只?

4、宰相的麦子:相传古印度宰相达依尔,是国际象棋的发明者。有一次,国王因为他的贡献要奖励他,问他想要什么。达依尔说:“只要在国际象棋棋盘上(共64格)摆上这么些麦子就行了:第一格一粒,第二格两粒,……,后面一格的麦子总是前一格麦子数的两倍,摆满整个棋盘,我就感恩不尽了。”国王一想,这还不容易,刚想答应,如果你这时在国王旁边站着,你会不会劝国王别答应,为什么?

5、某人想将手中的一张面值100 元的人民币换成10 元、5 元、2 元和1 元面值的票子。要求换正好40张,且每种票子至少一张。

问:有几种换法?应适当考虑减少重复次数。

6、有一堆100多个的零件,若三个三个数,剩二个;若五个五个数,剩三个;若七个七个数,剩五个。请你编一个程序计算出这堆零件至少是多少个?

妈的那么简单都不会!
给你麦子的答案:
不要,因为第64的位子超过了int64的范围,要用高精度;
编程如下,不用高精度:
var i,j,k,l,m,n:int64;
a:array[1..64]of int64;
s:string;
begin
a[1]:=1;for i:=1 to 64 do a[i]:=a[i-1]*2;
val(a[64],s,n);if s[1]='-' then s[1]:='';
write(s);end.
因为忘记怎么把数值放到字符串里,好像是val,不是自己改下
还有第6题:
var i:longint;
begin
for i:=100 to 999 do
if (i mod 3=2) and (i mod 5=3)
and (i mod 7=5) then begin
write(i);exit;end.
其他的不想打了,要问自己+我Q:523911696.
l19951129帮助你

这一题都得给个10分吧!!!