Переведите числа: 11111100, 11100111, 1111100 в десятичный код. переведите числа в двоичный код: 383, 46688, 968574.

11111100= 128+64+32+16+8+4=252 11100111 128+64+32+4+2+1=231 1111100= =124 383 191 95 47 23 11 5 2 1 1       1     1   1   1     1   1 0 1 -> 101111111 46688 23344 1167 583 291 145 72 36 18 9 4 2 1 0         0           1       1     1       1     0   0   0   1   0 0 1 -> 101000111100 968574 484287 242143 121071   60535 30267 15133 7566 3783 1891 0           1           1             1           1           1         1         0         1       1 945 472 236 118 59 29 14 7 3 1 1     0     0       0     1   1   0   1 1 1 -> 11101100011101111110

var

a, b, x, s, c, t: real;

begin

writeln('введите a');

readln(a);

writeln('введите b');

readln(b);

writeln('введите x');

readln(x);

if x< =a then

begin

s: =sin(x);

writeln ('синус равен ', s);

end

else

writeln ('синус вычислить нельзя, так как равенство не равно ', x, '< =', a);

if (a< x) and (x< b) then

begin

c: =cos(x);

writeln ('косинус равен ', c);

end

else

writeln ('косинус вычислить нельзя, так как равенство не равно ', a, '< ', x, '< ', b);

if x> =b then

begin

t: =tan(x);

writeln ('косинус равен ', t);

end

else

writeln ('косинус вычислить нельзя, так как равенство не равно ', x, '> =', b);

end.

//если я правильно понял, то var   d, h, w1, w2: integer; function readvalue(s: string): integer; var t: integer; begin   write(s, ' ');   readln(t);   result : = t; end; begin   h : = readvalue('высота слоя грунта: ');   d : = readvalue('объём грунта: ');   w1 : = readvalue('рек. влажность грунта: ');   writeln('вл. грунта | норма полива');   for w2 : = 50 to 60 do     writeln(w2: 9, '% | ', 0.1*h*d*(w1-w2), ' л/м'); end.