用pascal求一个数,这个数是11的倍数,百位数加十位数等于千位数,并且百位数加十位数是完全平方数.

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/09/24 12:17:28

这不难
var
i:integer;
begin
for i:=1000 to 9999 do
begin
if (i mod 11=0) and ((i div 1000)=(i mod 1000 div 100)+(i mod 100 div 10)) and (sqrt(i mod 100 div 10+i mod 1000 div 100)=trunc(sqrt(i mod 100 div 10+i mod 1000 div 100))) then write(i,' ');
end;
end.
结果：1012 1100 4048 4136 4224 4312 4400 9097 9185 9273 9361 9548 9636 9724 9812 9900

一个数大于500,是立方数,也是平方数,百位数加十位数等于个位数这个数是多少? 个位数是百位数的一半,十位数是百位数的加位.这个三位数是? 一个3位数,百位数比十位数大1,个位数是十位数的3倍少2,而这个数加它倒数和等于1171 ,求这个三位数? 一个四位数个位加1等于十位数十位数加2等于百位数把这个四位数颠倒加原数等11110 原数是多少一个三位数百位数是个位数的三倍,十位数是百位数和个位数之和,求这个三位数一个数是4位数,个位是质数,十位数是5的倍数,百位是偶数,千位是个位数的3倍.你知道这个数是多少有一个三位数,百位数加个位数是13,十位数是2,将百位数与个位数对调的新的三位数比原数大297,求原三位求一组6位数的密码这个六位数在800000与900000之间,并且千位数上是0,十位数上是4,百位数和个位数相同.密码的已知一个三位数是18的倍数他的个位数字正好是十位数与百位数子的差求这个数是多少一个5位数各位数都不同个位加十位等于百位十位加百位等于千位百位加千等于万位这个数最大最小是? 一个三位数,个位数是a,十位数是b,百位数是c,这个数是_______________. 一个三位数,个位数是x,十位数是个位数的三倍,百位数是十位数的二倍,则这个三位是多少?