作业帮pascal的niven数这道题怎么做!1
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/09 12:49:58
pascal的niven数这道题怎么做!1
就是
一个Niven数就是一个它的各位数字之和能整除它本身的数,
例如:111是Niven数.因为111 mod (1+1+1)=0.
同样地,在其他数制,我们仍能有这样的Niven数.给出 数制b (2
就是
一个Niven数就是一个它的各位数字之和能整除它本身的数,
例如:111是Niven数.因为111 mod (1+1+1)=0.
同样地,在其他数制,我们仍能有这样的Niven数.给出 数制b (2
Program a;
Var a,b:string[255];
du,xun,d,e,c:longint;
Begin
Write('请输入一个整数：');
Readln(du);
Str(du,a);
c:=length(a);
e:=0;
For xun:=1 to c do begin
b:=copy(a,xun,1);
Val(b,d);
e:=e+d;
End;
If du mod b = 0 then writeln('yes')
Else writeln('no');
Readln;
End.
Var a,b:string[255];
du,xun,d,e,c:longint;
Begin
Write('请输入一个整数：');
Readln(du);
Str(du,a);
c:=length(a);
e:=0;
For xun:=1 to c do begin
b:=copy(a,xun,1);
Val(b,d);
e:=e+d;
End;
If du mod b = 0 then writeln('yes')
Else writeln('no');
Readln;
End.