10001100001=1*2^10+1*2^6+1*2^5+1^2^0=1024+64+32+1=1121
В строчках, в которых Вы вычисляете y1 есть явная ошибка - скобок не хватает, а некоторые скобки можно, наоборот, убрать:
Вместо y1:=((1/3)*(2*y0+x/y0*y0))
надо написать y1:=(2*y0+x/(y0*y0))/3
Як я маю тобі це показати на блокноті, якщо це все треба робити на копі?
Мышь монитор клавиатура жёсткий диск экран провода электро связи
Программу из комментариев переписал для паскаля.
var x,s:integer;
begin
read(x);
x:=abs(x);
s:=0;
while x>0 do begin
if x mod 10>5 then s:=s+x mod 10;
x:=x div 10
end;
write(s)
<span>end.</span>