Sub aaa()
a = InputBox("Введите число А")
b = InputBox("Введите число B")
c = InputBox("Введите число C")
s = a + b + c
k = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = "0" Then k = k + 1
Next i
MsgBox "Общее количество нулей равно" + Str(k)
End Sub
===== PascalABC.NET =====
begin
var a := MatrRandom(6, 6, -20, 20);
a.Println(4);
a.ElementsByRow
.GroupBy(p -> p)
.Where(p -> p.Count > 1)
.MaxBy(p-> p.Key)
.Distinct
.Println
end.
n = int(input())
k = int(input())
print("Каждому по ",k//n," ябл.")
Пример:
4
10
Каждому по 2 ябл.
8+24 =32
р=8/32=1/4 - вероятность того, что выбран белый гриб
Количество информации в сообщении, что выбран белый гриб=
=log2 (1/p)=log2 4 =2 бита
ответ 2 бита
Создавать,перемещать,копировать,удалять, переименовать,создавать ссылки на них отправить.