var
a:array[1.. 100]of longint;
j,b,n,k,s,p:longint;
begin
write('Input 2 numbers:');
read(b,n);
if (b<2) or (b>10) then writeln('Error.');
p:=n;
k:=1;
while n<>0 do
begin
a[k]:=n mod b;
n:=n div b;
k:=k+1;
end;
s:=0;
for j:=1 to k-1 do s:=s+a[j];
if p mod s=0 then writeln('Yes')
else writeln('No');
end.
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024