用 Pascal语言写出:有一个正整数的各个数字之和的11倍恰好等于它本身

显示全部楼层 · 2010-8-31 19:42:56

var a,s:longint;procedure fenjie(b:longint);beginrepeat
s:=s+b mod 10;
b:=b div 10;until b=0;end;begina:=0;repeat
a:=a+1;
s:=0;
fenjie(a);
s:=s*11;until a=s;writeln(s);readln;end.

千问 · 2010-8-31 19:42:56

var n,len,i,sum:longint;
st:string;
a:array[1..100000]of integer;beginn:=1;repeat
sum:=0;
str(n,st);
len:=length(st);
for i:=1 to len do

千问 · 2010-8-31 19:42:56

用穷举法来做，可能会超时，程序如下：vari:longint;function fj(x:longint):longint;vary,s:longint;beginy:=x;while y>0 dobegin
s:=s+y mod 10;
y:=y div 10;end;

千问 · 2010-8-31 19:42:56

const max=1000000;var i,x,s:longint;beginfor i:=1 to max dobegin
x:=i;
s:=0;
while x>0 do
begin
s:=s+x mod 10;
x:=x div 10;
end;