function k=quer(n)

a=1;
i=1;
while floor(n/a)>0
    a=10*a;
    i=i+1;
end
a=a/10;
i=i-1;
x=[];
for j=1:i
    x(end+1)=floor(n/a);;
    n=n-floor(n/a)*a;
    a=a/10;
end
k=sum(x);

end