PASCAL：如何将一个四位数的各位数字分解出来好急的,3.12之前要交作业!

来源：学生作业帮助网编辑：作业帮时间：2024/04/29 14:33:49

PASCAL：如何将一个四位数的各位数字分解出来好急的,3.12之前要交作业!
PASCAL：如何将一个四位数的各位数字分解出来
好急的,3.12之前要交作业!

PASCAL：如何将一个四位数的各位数字分解出来好急的,3.12之前要交作业!
var a,b,c,d,n:longint;
begin
readln(n);
a:=n div 1000;//分离千位数；
b:=n div 100 mod 10;//分离百位数；
c:=n div 10 mod 10;//分离十位数；
d:=n mod 10;//分离个位数；
writeln(a,' ',b,' ',c,' 'd,' ');
readln;
end.
希望楼主采纳

PASCAL：如何将一个四位数的各位数字分解出来好急的,3.12之前要交作业! 输入一个四位数,求它各位上数字的和用pascal 一个四位数,它乘以9的积恰好是将原来那个四位数各位数字顺序颠倒而得的新四位数, 如果将一个四位数的各位数字的和与这个四位数相加,等于1992,那么这个四位数是多少? 如果将一个数位上没有重复数字的四位正整数中的各位数字之和与这个四位数相加等于2002 那么这个四位数是多少已知一个四位数恰好等于各位数字之和的四次方,求这个四位数有一个四位数,它的各位上的数字能被17整除,将这个四位数加上1,所得的各位上的数字的也能被17整除,这样的四位数是多少? 有一个四位数,它乘以4后的积恰好是将原来的四位数各位数字顺序颠倒而得的新四位数,求原来的四位数.请给出尽量简洁快速的解法! 将一个四位数减去其各位数字之和后仍的一个四位数19（）2,那么（）中应填什么? 一个四位数,它乘以9的积恰好是将原来那个四位数各位数字顺序颠倒而得的新四位数,求原来的四位数一个四位数,各位数字相加的和是8,这样的四位数有哪些? 一个四位数是他各位数字和的83倍,则这个四位数为? 一个四位数,它与它的各位数字之和为2006,求这个四位数、一个四位数与它的各位数字之和是1972,求这个四位数. 一个四位数,它各位数字的和是35,这个四位数最小是多少? 一个四位数,它各位数字的和是35,这个四位数最大是多少? 一个四位数,它各位数字的和是35 ,这个四位数最大是多少? 已知一个四位数的各位数字的和与这四位数相加等于1995,求这个四位数