赞 luoluo6452 幼苗
共回答了19个问题采纳率：89.5% 举报
var a,s:longint;
procedure fenjie(b:longint);
begin
repeat
s:=s+b mod 10;
b:=b div 10;
until b=0;
end;
begin
a:=0;
repeat
a:=a+1;
s:=0;
fenjie(a);
s:=s*11;
until a=s;
writeln(s);
readln;
end.
procedure fenjie(b:longint);
begin
repeat
s:=s+b mod 10;
b:=b div 10;
until b=0;
end;
begin
a:=0;
repeat
a:=a+1;
s:=0;
fenjie(a);
s:=s*11;
until a=s;
writeln(s);
readln;
end.
1年前
6
可能相似的问题
-
1年前1个回答
-
一个两位数,各位数字之和的5倍比原数大6,则这个两位数是（ ）.
1年前2个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前5个回答
-
1年前5个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗
精彩回答