function s = soucet_cifer(x)
s = 0;
while 1
    c = x-fix(x/10)*10;
    s = s + c;
    x = fix(x/10);
    if(x == 0)
        break;
    end
end