1. перевести числа в двоичную систему счисления: а) 17 б) 99 в) 175 г) 211 2. перевести числа из двоичной системы счисления в десятичную: а) 10001 б) 111011 в) 1010101 г) 110110110 3. выполнить сложение в двоичной системе счисления: а) 11+1 б) 101+11 в) 11011+111 г) 1010+10 4. выполнить умножение в двоичной системе счисления: а) 111*10 б) 111*11 в) 1101*101 г) 1101*1000

1.

а) 17/2=8 1

8/2=4 0

4/2=2 0

2/2=1 0

1

10001

б) 99/2=49 1

49/2=24 1

24/2=12 0

12/2=6 0

6/2=3 0

3/2=1 1

1

1100011

в) 175/2=87 1

87/2=43 1

43/2=21 1

21/2=10 1

10/2=5 0

5/2=2 1

2/2=1 0

1

10101111

г) 211/2=105 1

105/2=52 1

52/2=26 0

26/2=13 0

13/2=6 1

6/2=3 0

3/2=1 1

1 

11010011

p.s

вопрос большой, наверно стоит разделить его на части как предписанно правилами))

 

1) а-10001 б- 1100011 в- 1101111 г- 11010011 2) а=5 б=14 в=13 г=27 3) а- 1111+00=1100 б- 1100101+1111=1111100

Измените тип переменных n и k на integer: function xfact(o: integer): integer; var   factorial: longint;   i: integer; begin   write('o = ');   readln(o);   factorial : = 1;   for i : = 2 to o do       factorial : = factorial * i; end; var   c: real;   n,k: integer; begin   writeln('введите число n: ');   readln(n);   writeln('введите число k: ');   readln(k);   c : = xfact(n) / xfact(n - k) * xfact(k);   writeln('c = ', c); end.

1. var   a,b,c: integer; begin   write('введите а, в, с: ');   readln(a,b,c);   if abs(a+b+c)> 3 then write('их абсолютное значение суммы больше трёх. уменьшаю на 1 каждое число - ',a,'-1 =  ',a-1,',    ',b,'-1 =  ',b-1,', ',c,'-1 =  ',c-1) else write('их абсолютное значение суммы не превышает трёх. показываю квадраты этих чисел - ',a,'^2 = ',sqr(a),', ',b,'^2 = ',sqr(b),', ',c,'^2 = ',sqr(c)); end. 2. var  r,a: integer; begin  write('введите радиус круга ');   readln(r);   write('введите сторону квадрата ');   readln(a);   writeln('s круга = ',sqr(r)*pi,', s квадрата = ',sqr(a));   if (sqr(r)*pi) > (sqr(a)) then write('s круга больше, чем s квадрата') else if (sqr(r)*pi) < (sqr(a)) then write('s квадрата больше, чем s круга') else write('s круга = s квадрата'); end.