С! 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

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

     

Var a: array[1..12] of integer;     i: integer; begin     randomize;     write('массив:   ');     for i: =1 to 12 do     begin       a[i]: =random(40);       write(a[i],' ');     end;     writeln;     write('четные элементы:   ');       for i: =1 to 12 do      if (a[i]> 0) and (a[i] mod 2 = 0) then write(a[i],' '); end.  массив:   10 27 38 8 25 22 31 13 27 14 12 11  четные элементы:   10 38 8 22 14 12