Перевести число 71 из десятичной в двоичную с разбором

71=64*1+32*0+16*0+8*0+4*1+2*1+1*1. значит, 71 в десятичной равно 1000111 в двоичной.

1000111 если 71/2 70  35/2 1    34 17/2         1  16  8/2               1    8  4/2                   0  4  2/2                       0  2  1                           0

Var   n: integer;   x,y: real; begin   for n: =1 to 50 do begin       writeln('n=',n);       x: =1;       while x< =3.001 do begin           y: =sin(n*x)-cos(n/x);           if y< 0 then writeln('x=',x: 3: 1,'    y=',y: 8: 5);           x: =x+0.1           end       end end. результаты (частично) n=1 x=2.1    y=-0.02554 x=2.2    y=-0.08996 x=2.3    y=-0.16126 x=2.4    y=-0.23898 x=2.5    y=-0.32259 x=2.6    y=-0.41144 x=2.7    y=-0.50481 x=2.8    y=-0.60191 x=2.9    y=-0.70188 x=3.0    y=-0.80384 n=2 x=1.5    y=-0.09412 x=1.6    y=-0.37370 x=1.7    y=-0.63973 x=1.8    y=-0.88619 x=1.9    y=-1.10714 x=2.0    y=-1.29710 x=2.1    y=-1.45132 x=2.2    y=-1.56607 x=2.3    y=-1.63885 x=2.4    y=-1.66858 x=2.5    y=-1.65563 x=2.6    y=-1.60190 x=2.7    y=-1.51073 x=2.8    y=-1.38683 x=2.9    y=-1.23607 x=3.0    y=-1.06530 n=49 x=1.0    y=-1.25435 x=1.1    y=-1.31878 x=1.3    y=-0.23684 x=1.5    y=-1.26149 x=1.6    y=-0.56383 x=1.9    y=-1.70385 x=2.0    y=-1.37979 x=2.4    y=-0.98177 x=2.5    y=-0.70927 x=2.6    y=-0.01366 x=2.7    y=-0.41812 x=2.8    y=-1.07678 x=2.9    y=-0.29265 n=50 x=1.0    y=-1.22734 x=1.1    y=-1.09814 x=1.5    y=-0.04807 x=1.6    y=-1.98015 x=2.0    y=-1.49757 x=2.1    y=-1.21559 x=2.5    y=-1.02412 x=2.6    y=-1.85832 x=2.7    y=-0.85734 x=3.0    y=-0.14029

Microsoft qbasic 1.0 dim n as integer cls input "n=", n redim a(1 to n) as integer randomize timer imax = 1 for i = 1 to n     a(i) = int(30 * rnd)     if a(i) > a(imax) then imax = i     print a(i); next print t = a(imax) for i = imax - 1 to 1 step -1     a(i + 1) = a(i) next a(1) = t for i = 1 to n     print a(i); next пример n=15   5  16  10  18  11  12  10  26  27  22  20  5  16  18  4   27  5  16  10  18  11  12  10  26  22  20  5  16  18  4