主题：help help!!!!!!!!!!
adam1992
[专家分：0] 发布于 2006-02-06 17:22:00
1、求出所有的三位数，它除以11所得的余数等于它的三位数的平方和。
2、把数码1，2，3，4....，9分成三组，每株构成一个三位数，使这三个三位数恰号成
1：2：3，该怎样分？求出所有的解答来。（如：192，384，576就是一组解答）
3、计算下列各式的值：
（1）1+2+4+8+......+128+256+512+1024
（2）1+（1+2）+（1+2+3）+...+（1+2+3+4+...+N）
[em18][em18][em18]
回复列表 （共3个回复）
沙发
lmj9201 [专家分：1400] 发布于 2006-02-06 19:41:00
第一题两种解法,你自己看
1
var
i,a,b,c,d:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a+b*b+c*c<=(100*a+10*b+c)mod 11
then writeln(a,b,c);
end.
2
var
i,a,b,c,d:integer;
begin
for i:=100 to 999 do
begin
a:=i div 100;
b:=(i-a*100)div 10;
c:=i-a*100-b*10;
d:=i mod 11;
if a*a+b*b+c*c<=d
then writeln(i);
end;
end.
第二题
var
i:integer;
s,ss:string;
c:char;
begin
for i:=123 to 321 do
begin
str(i,ss);
str(i*2,s); ss:=ss+s;
str(i*3,s); ss:=ss+s;
for c:='1' to '9' do
if pos(c,ss)=0 then break;
if pos(c,ss)=0 then continue;
writeln(i,' ',i*2,' ',i*3);
end;
end.
第三题(1)
var
i,j,p,s:longint;
begin
p:=1;
for i:=1 to 11 do
begin
s:=s+p;
p:=p*2;
end;
writeln('1+2+4+8+16+32+64+128+256+512+1024=',s);
end.
第三题(2)
var
n,i,j,p:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to i do
p:=p+j;
writeln(p);
end.
板凳
lmj9201 [专家分：1400] 发布于 2006-02-15 22:54:00
加个分
3 楼
编程黑客 [专家分：1660] 发布于 2006-02-26 21:38:00
穷举
我来回复
您所在位置：