Ну, наверное это должно выглядеть как то так. Я плохо помню паскаль
program Help; #Заголовок
var #Раздел с переменными
a, b ,c, summ : real; #Входные переменные и по итогу их сумма, вещественные
begin #Думаю понятно
summ := 0; #Инициализация summ, ибо статическая типизация
writeln('Enter nums'); #Программа попросит ввести числа
readln(a); #Считывание
readln(b); #Считывание
readln(c); #Считывание
if a > 0 then summ += a; #Если переменная а больше нуля, прибавляем её к итоговой переменной
if b > 0 then summ += b; #Аналогично
if c > 0 then summ += c; #Аналогично
write(summ); #Выводим переменную summ на экран
end.
ответ: сообщение о результатах лотереи "6 из 36" несёт больше информации.
Объяснение:
Используем формулы на мощность алфавита:
Где i - вес символа, а N - мощность алфавита (количество букв в нём).
Узнаем информационный вес символа каждой лотереи:
Первая
Нужно взять минимально возможное целое i, чтобы выражение было равно или больше мощности алфавита.
2⁶ = 64, значит один символ весит 6 бит.
6 × 6 = 36 бит - информационный объём первой лотереи.
Вторая
2⁶ = 64 бита, значит один символ весит 6 бит.
6 × 5 = 30 бит - информационный объём второй лотереи.