作业帮pascal：在下面式子中的二个框内填入一个合适的同样的数字,使等式成立.□3*6528=3□*8256写出pascal程序（求出□的值）看答案的质量 100之间
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/08 23:43:44
pascal：在下面式子中的二个框内填入一个合适的同样的数字,使等式成立.□3*6528=3□*8256写出pascal程序（求出□的值）看答案的质量 100之间
pascal：在下面式子中的二个框内填入一个合适的同样的数字,使等式成立.
□3*6528=3□*8256
写出pascal程序（求出□的值）
看答案的质量 100之间
pascal：在下面式子中的二个框内填入一个合适的同样的数字,使等式成立.□3*6528=3□*8256写出pascal程序（求出□的值）看答案的质量 100之间
用的是枚举思想：
var a,b,c,d:longint; /////////定义类型,主要是longint长整型类型
begin /////////////程序开始
b:=6528; ////生成第2个乘积的值
c:=8256; //生成第4分乘积的值
for a:=1 to 9 do ///////循环求出第1个乘积的十位
for d:=0 to 9 do ///////循环求出第3个乘积的个位
if (a*10+3)*b=(30+d)*c ////////判断是否可以构成等式成立
then writeln(a,'3*',b,'=3',d,'*',c); //////////输出等式
end. ///////程序结束
调试……
Running "f:\tp7\fpc\2.0.4\bin\i386-win32\solutions.exe "
输出答案：
43*6528=34*8256
用枚举吧
var
i,j:integer;
begin
for i:= 0 to 9 do
for j:=0 to 9 do
if (i*10+3)*6528=(30+j)*8256 then write（i,j）;
end.