用pascal求一个数,这个数是11的倍数,百位数加十位数等于千位数,并且百位数加十位数是完全平方数.
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/02 14:27:22
用pascal求一个数,这个数是11的倍数,百位数加十位数等于千位数,并且百位数加十位数是完全平方数.
这不难
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
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,十位数是个位数的三倍,百位数是十位数的二倍,则这个三位是多少?