Открыть,изменить,копировать,вставить ,удалить
Var x,y,z,n:integer;
begin
writeln('Введите n');
readln(n)
;for x:=1 to n do
begin
for y:=1 to n do
begin
for z:=1 to n do
begin
if (sqr(x)+sqr(y)+sqr(z)=n)then writeln('x=',x,' y=',y,' z=',z);
end;
end;
end;
<span>end.</span>
111010110111101(2)
<span>нулей в двоичной записи = 4</span>
При условии, что код белого цвета 0, а черного - 1, правильный ответ 1234547, т.к. биты с 1 по 7 равны 1, а нулевой бит равен 0.