Программа работает в следующем виде:
n = InputBox(vbLf & "Напиши значение ""n"" (количество расчетов)")
ReDim X(n)
ReDim Y(n)
Randomize
For i = 1 To n
X(i) = 5 - 10 * Rnd
Next
S = 0
For Each b In X
S = S + X(1) / i
Next
MsgBox "S=" & S
Нижние строки я убрал, потому что не понял, зачем они и что должны выводить: в задании про них ничего не сказано.
Раскладываем 59 по степеням получим 111011 -> 6 бит.
<span>1) Разбиваем 32-битный код на 4 группы по 8 цифр и переводим каждую группу из 2-ной системы в 10-ную:
10111110101000110110001000101010</span> --> 190.163.98.42
2) <span>Аналогично предыдущей задаче, только переводим наоборот, из 10-ной системы счисления в 2-ную:
а) 65.128.255.12 </span><span>--> </span>0<span>1000001</span><span><span>10000<span>0001111111100001100
</span></span>б) 192.48.0.24</span> --> 11000000001100000000000000011000
3)<span>115628382 </span>--> 115.62.83.82
Решаем с конца:
- 4-е число не может быть 382, значит оно состоит из одной или двух цифр;
- пусть последнее число 2, тогда 3-е может быть только 38, но тогда 2-е получается 628, что невозможно;
- тогда пусть последнее число 82, тогда 3-е может быть только 83, тогда 2-е получается 62, а 1-е 115
1. Дискретизация необходима для преобразования аналогового согнала в цифровой.
3. Да, при дискретизации происходит потеря части информации.
76 - пишешь любое ложное высказывание (допустим по географии - "земля плоская) и одно истинное (география - земля имеет форму шара)