程序题:某个自然数的个位的数是6,将这个6移到这个自然数左边首位数前面,所构成的新数是原数的4倍,原数最小是几?(求pa
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/27 05:39:14
程序题:某个自然数的个位的数是6,将这个6移到这个自然数左边首位数前面,所构成的新数是原数的4倍,原数最小是几?(求pascal程序)
![程序题:某个自然数的个位的数是6,将这个6移到这个自然数左边首位数前面,所构成的新数是原数的4倍,原数最小是几?(求pa](/uploads/image/z/4840881-33-1.jpg?t=%E7%A8%8B%E5%BA%8F%E9%A2%98%EF%BC%9A%E6%9F%90%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%E7%9A%84%E4%B8%AA%E4%BD%8D%E7%9A%84%E6%95%B0%E6%98%AF6%2C%E5%B0%86%E8%BF%99%E4%B8%AA6%E7%A7%BB%E5%88%B0%E8%BF%99%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%E5%B7%A6%E8%BE%B9%E9%A6%96%E4%BD%8D%E6%95%B0%E5%89%8D%E9%9D%A2%2C%E6%89%80%E6%9E%84%E6%88%90%E7%9A%84%E6%96%B0%E6%95%B0%E6%98%AF%E5%8E%9F%E6%95%B0%E7%9A%844%E5%80%8D%2C%E5%8E%9F%E6%95%B0%E6%9C%80%E5%B0%8F%E6%98%AF%E5%87%A0%3F%EF%BC%88%E6%B1%82pa)
program minnum;
var n,e:longint;
begin e:=1;n:=1;
repeat e:=100000;
repeat n:=n+1;
until (n=e)or((10*n+6)*4=(6*e+n));
until (10*n+6)*4=(6*e+n);
if((10*n+6)*4=(6*e+n)) then writeln(10*n+6)
else writeln('too high');
end.
输出:153846
再问: 为什么要假定是六位数呢?题目没有要求呀。是先通过数学思维分析出答案,然后再编程吗?
再答: 事先并不知道数的大小,假设一个较大的范围,如果其中有满足条件的数,就是最小数,否则满足条件的数太大甚至没有。
var n,e:longint;
begin e:=1;n:=1;
repeat e:=100000;
repeat n:=n+1;
until (n=e)or((10*n+6)*4=(6*e+n));
until (10*n+6)*4=(6*e+n);
if((10*n+6)*4=(6*e+n)) then writeln(10*n+6)
else writeln('too high');
end.
输出:153846
再问: 为什么要假定是六位数呢?题目没有要求呀。是先通过数学思维分析出答案,然后再编程吗?
再答: 事先并不知道数的大小,假设一个较大的范围,如果其中有满足条件的数,就是最小数,否则满足条件的数太大甚至没有。
程序题:某个自然数的个位的数是6,将这个6移到这个自然数左边首位数前面,所构成的新数是原数的4倍,原数最小是几?(求pa
某个自然数的个位的数是6,将这个6移到这个自然数左边首位数前面,所构成的新数是原数的4倍,原数最小是几
某个自然数的个位的数是8,将这个8移到这个自然数左边首位数前面,所构成的新数是原数的8倍,原数最小是几?
一个多位数的个位是6,将个位6移到这个数的首位,其他数字次序不变地往后退一位,得到一个新的多位数,它是原数的4倍,则原数
一个多位数是个位是8,将个位8移到这个数的首位,其它数字次序不变的往后退一位,得到一个新多位数,它是原数的8倍,则原数最
一个多位数的个位是8,将个位移到这个数的首位,其他数字次序不变的往后退一位,得到一个新的多位数,它是原数的8倍,则原数最
一个三位数的个位数字是7,把个位移到首位,则新数比原数的5倍还多77,求这个三位数
一个三位数的个位是7,若把个位数字移到首位,则新数比原数的5倍还多77,求这个三位数
一个三位数的个位数字是7,把个位移到首位,则新数比原数的5倍还多86,求这个三位数
一个三位数个位数字是7把个位数字移到首位,新数比原数的五倍还多七十七,这个三位数是多少
某n位数的个位数字是6,将6移到该数的首位,其余各位数字不动,得到新的一个n位数,这个新数是原n位数的4倍,则满足条件的
一个数,百位和十位都是最大的一位数,个位是最小的自然数,这个数是991.【判断题】