При алфавитном подходе кол-во информации зависит от мощности алфавита и входных данных. при вероятностном подходе кол-во информации зависит от минимального кол-ва бит которыми можно представить вероятность появления этой информации
Function get_random(min,max:integer;n,x:boolean):integer;
begin
if n then min:=min+1;
if x then max:=max-1;
get_random := random(min,max);
end;
вызов фунциии:
[0;15),
get_random(0,15,false,true);
[0;15],
get_random(0,15,false,false);
[-15;15],
get_random(-15,15,false,false);
[10;15)
get_random(10,15,false,true);
Чисто подбором
1
+3 = 4
*2 = 8
+3 = 11
*2 = 22
*2 = 44
+3 = 47
ровно 6 шагов
Var a: array[1..10] of integer; sum, i: integer;beginsum:=0;for i:=1 to 10 do begin readln(a[i]); if a[i] mod 2=0 then sum:= sum+a[i]; end;write(sum);end.