Переведите числа: 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

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.