В German Lotto 6 из 49 шаров «вытягиваются» один за другим (выбираются) (и не заменяются после выбора). Вероятность угадать все 6 чисел составляет 0,00000715% 1. Выпадают числа 7-14-21-28-35-42 (совпадение именно в таком порядке).
а. Насколько информативен мяч с цифрой «42»? 2P
б. Как изменилось бы количество информации о шаре с цифрой «7», если бы это была не идеальная лотерея, а другие шары были вытянуты с большей вероятностью, чем «7»?
1P
c. Какой объем информации имел бы «21» в этот момент в последовательности чисел, если бы это были не номера лотереи, а числа, кратные семи?
1P d.
Какова максимальная избыточность по Шеннону в такой последовательности чисел? 2P
е. Насколько велик был бы минимальный объем информации, согласно Шеннону, в последовательности из 6 шаров, если бы каждый шар заменялся после выбора?
2P
е. Г-н С. выиграл в лотерею. Это сообщение имеет информационный объем 17.692860651849858459348897632857. Сколько чисел он угадал правильно?

PascalABC.NET 3.2:
1.
begin
   write(ReadString.indexof(':'))
end.
Пример ввода: 1234:56
Пример вывода: 4

2.
begin
   write(readString.ToWords.Select(x->x[1]).JoinIntoString)
end.
Пример ввода: Как любила язвить королева, собаки апплодировали
Пример вывода: Клякса
3.
begin
   write(readString.ToWords.Select(s->Length(s)).Max)
end.
Пример ввода: Не хочу учиться хочу жениться
Пример вывода: 8
4.
Если там нет знаков препинания:
begin
   write(readString.ToWords.Select(s->ReverseString(s)).JoinIntoString(' '))
end.
Если там есть знаки препинания, которые надо оставить на месте, то настолько же короткого решения мне не придумалось, можно так: 
begin
  var str := readString + ' ';
  var m := '';
  for var i := 1 to str.Length do
    if str[i].IsLetter then
      m += str[i]
    else
    begin
      write(ReverseString(m), str[i]);
      m := '';
    end;
end.
Пример ввода: амар алым умам
Пример вывода: рама мыла маму

1. Определим количество точек по сторонам изображения.
dpi - это количество точек на одном дюйме, а дюйм приблизительно равен 2.54 см.
Тогда изображение по одной из сторон будет содержать 10/2.54×600 ≈ 2362 точки, а по второй - 10/2.54×1200 = 4724 точки.
2. Для хранения информации о цвете каждой точки требуется 2 байта.
3. Определим информационный объем файла
2362×4724×2 = 22316176 байт. Это длинная запись величина, поэтому переведем её в более крупные единицы
22316176 байт = 22316176/1024 Кбайт ≈ 21793 Кбайт = 21793/1024 Мбайт ≈ 21.28 Мбайт

Выбирайте любой из ответов - в байтах, Кбайтах, Мбайтах