主题：宰相的麦子
dxwxy
[专家分：80] 发布于 2007-12-22 19:18:00
宰相的麦子
回复列表 （共16个回复）
11 楼
日奈森亚梦 [专家分：150] 发布于 2009-04-09 21:25:00
program blws;
var
n,s,t:real;
begin
s:=0;
for n:=0 to 63 do
s:=s+2^n;
t:=s/(1.42*10^8);
writeln('s=',s);
writeln('t=',t);
end.
12 楼
日奈森亚梦 [专家分：150] 发布于 2009-04-09 21:32:00
第三题：
program j;
var
i,j,k,total:integer;
begin
total:=0;
for i:=1 to 19 do
for j:=1 to 47 do
k:=100-5*i-2*j
if k>0 then begin
writeln(i:10,j:10,k:10);
inc(total);
end;
writeln(total);
readln;
end.
13 楼
Ak47aaaaa [专家分：0] 发布于 2009-04-16 21:10:00
program mmmm;
var
a,b:longint;
begin
for a:=1to 64 do
b:=exp(a ln(a));
write(b);
end.
14 楼
xkzxkz [专家分：0] 发布于 2010-08-07 10:13:00
宰相的麦子：相传古印度宰相达依尔是国际象棋的发明者。有一次，国王因为他的贡献要奖励他，问他要什么。达依尔说：“只要在国际象棋棋盘上（共64格）摆上这么些麦子就行了：第一格一粒，第二格两粒，……，后面一格的麦子总是前一格麦子数的两倍，摆满整个棋盘，我就感恩不尽了。”国王一想，这很容易，刚想答应，如果你这时在国王旁边站着，你会不会劝国王别答应，为什么？
15 楼
xkzxkz [专家分：0] 发布于 2010-08-07 10:14:00
答出来10QB
16 楼
xkzxkz [专家分：0] 发布于 2010-08-07 10:17:00
外加10分
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 宰相的麦子