PASCAL:如何将一个四位数的各位数字分解出来
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/04/30 12:33:03
PASCAL:如何将一个四位数的各位数字分解出来
好急的,3.12之前要交作业!
好急的,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.
希望楼主采纳
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:如何将一个四位数的各位数字分解出来
输入一个四位数,求它各位上数字的和 用pascal
如果将一个四位数的各位数字的和与这个四位数相加,等于1992,那么这个四位数是多少?
一个四位数,它乘以9的积恰好是将原来那个四位数各位数字顺序颠倒而得的新四位数,
如果将一个数位上没有重复数字的四位正整数中的各位数字之和与这个四位数相加等于2002 那么这个四位数是多少
用C语言如何将从键盘输入四位数,分解成4个数字
有一个四位数,它的各位上数字相加的和能被17整除,将这个四位数加上1,所得和的各位上的数字的和也能被17整除,这个四位数
将一个四位数减去其各位数字之和后仍的一个四位数19( )2,那么( )中应填什么?
有一个四位数,它乘以4后的积恰好是将原来的四位数各位数字顺序颠倒而得的新四位数,求原来的四位数.
有一个四位数,它乘以9后所得乘积恰好是将原来的四位数各位数字顺序颠倒而得的新四位数,求原来的四位数.
已知一个四位数恰好等于各位数字之和的四次方,求这个四位数
已知一个四位数的各位数字的和与这个四位数相加等于1995,求这个四位数,