Аххаха, ты тоже с Харькова с программирования в 14 гимназии?
Скопировал из телеграмма?)))
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
var a:=ArrRandom(5,0,60); a.Println;
Swap(a[0],a[4]); a.Println
end.
Пример
52 35 23 8 9
9 35 23 8 52
Program zadacha;vara,b,sum,pr:integer;beginwriteln('vvedite dva chisla');readln(a,b);if (a<>10) and (b<>10) and (a mod 2 = 0)thenwriteln('a+b=',a+b)elsewriteln('a*b=',a*b);end.
Общее количество возможных вариантов = 11 (на первой остановке может выйти 0, 1, 2, ... или 10 пассажиров).
Искомая ёмкость = log(2)11 ≈ 3,46
Программы для решения задач - в прилагаемом файле.