1) <span>if a > b then begin a:= b ; end else b:=a;
Вот правильный вариант еnd; был лишний так как еще одного begin не было
2)
Var s:integer;k:real;
begin
s:=255;if s mod 2=1 then begin s:= s-1 ;k:= s/2 end
else k:=s ;writeln(k)
end.
Тут у вас ; с запятой были потеряны после исправления ответ 127</span>
Аня математика
Саша География
Лена История
Вася Литература
Миша Информатика
Формула Шеннона о количестве информации в событии с вероятностью p
i=-log(p)/log(2)
Важно только количество целых чисел в диапазоне. Чем больше чисел в диапазоне, тем меньше вероятность выбора одного числа и тем больше информации в сообщении о выборе
a) 76-12+1 = 65
в) 133-100+1=34
с) 25-(-17)+1=43
д) 0-(-32)+1=33
е) 34-12+1=23
Соответственно, наименьшее количество информации будет в сообщении о выборе числа из последнего диапазона, от 12 до 34