作业帮 > 数学 > 作业

pascal:在下面式子中的二个框内填入一个合适的同样的数字,使等式成立.

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/25 16:14:06
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