Составить блок-схему и написать на vba процедуру, организующую ввод с клавиатуры восьми слов, с последующей распечаткой на рабочем листе таблицы по форме: | слово | длина_слова | начальная_буква_слова | последняя_буква_слова | элементы ввода объединить в массив.

4 числа => каждое число = 32/4 = 8 бит

1. 11001100.10011000.10111110.01000111

2. 11011110.11000011.10100010.00110010

сейчас переводим из двоичной в 10 по следующему алгоритму:

записываем двоичное число: 11001100. сейчас начиная с правого конца, помечаем разряды(начиная с я буду отмечать в фигурных скобках. получаем:

11001100 = 1{7} 1{6} 0{5} 0{4} 1{3} 1{2} 0{1} 0{0}

и сейчас, чтобы найти десятичный эквивалент двоичному числу, мы считаем сумму вида: берем двоичное число(1 или 0) и умножаем его на 2 в степени разряда. т.е.:

11001100 = 1*2^7 + 1*2^6 + 0*2^5 + 0*2^4 + 1*2^3 + 1*2^2 + 0*2^1 + 0*2^0 = 128 + 64 + 0 + 0 + 8 + 4 + 0 + 0 = 204

точно так же делаем для всех оставшихся чисел. т.е.:

10011000 = 1*2^7 + 1*2^4 + 1*2^3 = 128 + 16 + 8 = 152

10111110 = 1*2^7 + 1*2^5 + 1*2^4 + 1*2^3 + 1*2^2 + 1*2^1 = 128 + 32 + 16 + 8 + 4 + 2 = 190

01000111 = 1*2^6 + 1*2^2 + 1*2^1 + 1*2^0 = 64 + 4 + 2 + 1 = 71

в итоге, получаем ip адрес: 204.152.190.71

точно так же делаем и для второго адреса:

11011110 = 1*2^7 + 1*2^6 + 1*2^4 + 1*2^3 + 1*2^2 + 1*2^1 = 128 + 64 + 16 + 8 + 4 + 2 = 222

11000011 = 1*2^7 + 1*2^6 + 1*2^1 + 1*2^0 = 128 + 64 + 2 + 1 = 195

10100010 = 1*2^7 + 1*2^5 + 1*2^1 = 128 + 32 + 2 = 162

00110010 = 1*2^5 + 1*2^4 + 1*2^1 = 32 + 16 + 2 = 50

и получаем следующий адрес: 222.195.162.50

Const     n = 5; var     p: array[1..n] of integer;     c,i,j,b: integer; begin writeln('введите пять целых чисел'); for i: =1 to n do       begin       repeat       b: =0;       read(c);       for j: = 1 to i-1 do               if p[j] = c then b: =j;       if b > 0 then writeln('число ',p[b],' уже было'#13'попробуйте ещё раз')       else p[i]: =c;       until b = 0;       end; writeln('полученная последовательность'); for i: = 1 to n do write(p[i],' ') end.