С! 1. 32, 64 перевести в двоичную систему 2. 40, 5 перевести в двоичную систему 3. 31, 75 перевести в двоичную систему 4. 315, 1875 перевести в двоичную систему заранее *

1)32/2=16(0)     64/2=32(0)

16/2=8(0)           32/2=16(0)

8/2=4(0)             16/2=8(0)

4/2=2(0)             8/2=4(0)

2/2=1(0)             4/2=2(0)

1/2=0(1)             2/2=1(0)

                          1/2=0(1)     ответ: 100000.1000000

 

2)40/2=20(0)       5/2=2(1)

    20/2=10 (0)       2/2=1(0)

    10/2=5(0)         1/2=0(1)

    5/2=2(1)

    2/2=1(0)

    1/2=0(1)     ответ: 101000.101

 

3)31/2=15(1)     75/2=37(1)

    15/2=7(1)       37/2=18(1)

    7/2=3(1)         18/2=9(0)

  3/2=1(1)           9/2=4(1)

    1/2=0(1)         4/2=2(0)

                          2/2=1(0)

                          1/2=0(1)   ответ: 11111.1001011

 

4)

315/2=157(1)

157/2=78(1)

78/2=39(0)

39/2=19(1)

19/2=9(1)

9/2=4(1)

4/2=2(0)

2/2=1(0)

1/2=0(1)

 

           

1875/2=937(1)

937/2=468(1)

468/2=234(0)

234/2=117(0)

117/2=58(1)

58/2=29(0)

29/2=14(1)

14/2=7(0)

7/2=3(1)

3/2=1(1)

1/2=0(1)           ответ: 100111011.11101010011

  сначала надо перевести число до запятой а потом после 

     

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin   var (n,a,b): =readinteger3('введите размер массива и границы диапазона: ');   var m: =arrrandom(n,a,b); m.println;   var d: =n div 2; // середина массива   m: =(m[: d].reverse+m[d: ].reverse).toarray; m.println end. пример введите размер массива и границы диапазона: 16 10 99 68 50 17 92 62 69 18 16 36 83 27 68 98 92 44 12 16 18 69 62 92 17 50 68 12 44 92 98 68 27 83 36

//pascalabc.net//версия 3.3. сборка 1583 (25.11.2017) begin writeln('введите диапазон: '); write('от: '); var a: = readinteger; // ввод а с целым типом write('до: '); var b: = readinteger;   // ввод б с целым типом var m: array[1..10] of integer;       // описание массива writeln('начальный массив: '); for var i: =1 to 10 do        // генерация и вывод массива     begin     m[i]: =random(a,b);     write(m[i]: 4);     end; writeln; for var i: =1 to 2 do  // переворот первой части(способом обмена 1 с 5, 2 с 4)     begin     var t: =m[i];     m[i]: =m[6-i];     m[6-i]: =t;     end; for var i: =6 to 7 do // переворот второй части(способом обмена 6 с 10, 7 с 9)     begin     var t: =m[i];     m[i]: =m[16-i];     m[16-i]: =t;     end; writeln('измененный массив: '); // вывод измененного массива  for var i: =1 to 10 do     write(m[i]: 4); end.