<span>все очень легко;)
внутри проверка (i mod 3 =0) and (i mod 10 = 2) и суммируй</span>
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
ты скажи в каких системах счисления у тебя даны они изначально. А то не понятно, как переводить.
Делим число на 2 и выписываем остатки
860 = 430·2 + 0
430 = 215·2 + 0
215 = 107·2 + 1
107 = 53·2 + 1
53 = 26·2 + 1
26 = 13·2 + 0
13 = 6·2 + 1
6 = 3·2 + 0
3 = 1·2 + <span>1
</span>