作业帮 > 综合 > 作业

有一个三位数,它的各位数字之和的11倍恰好等于它自身,请编程求出这个三位数.8.在自然数中,如果一个三

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/20 14:39:40
有一个三位数,它的各位数字之和的11倍恰好等于它自身,请编程求出这个三位数.8.在自然数中,如果一个三
用pascal语言,不要太复杂了,美女帅哥们,好不好来
有一个三位数,它的各位数字之和的11倍恰好等于它自身,请编程求出这个三位数.8.在自然数中,如果一个三
program num;
var
a,b,c,i,tot:integer;
begin
for i:=100 to 999 do {枚举所有的三位数}
begin
a:=i mod 10; {a是 这个三位数 的个位上的数字}
b:=(i mod 100)div 10;{ b 是 这个三位数的 十位上的数字}
c:=i div 100; {c 是 这个三位数的百位上的 数 字 }
tot:=(a+b+c)*11;{取a,b,c的和的11倍}
if tot=i then write(i);
end;
end.
希望你能够看懂.