Комплексное использование возможностей MS Excel для создания документов

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
  Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
  Исправляем N:N div 10; на N:= N div 10;
 
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
  N, k: integer;
begin
  readln(N);
  k := 9;
  while N > 10 do
  begin
    if (N mod 10 < k) then k := N mod 10;
    N := N div 10;
  end;
  write(k)
end.

За что и возьмём: I = 2 бита, p - некая вероятность того, что ученик получил пятёрку. Тогда: 2 = log2(1/p) - решаем обычное логарифмическое уравнение log2(4) = log2(1/p) 4 = 1/p p = 1/4 Но ведь вероятность получения пятёрки рассчитывается как: кол-во пятёрок делённое на суммарное кол-во оценок. Какой из этого вывод? ! Известна вероятность, известно суммарное кол-во оценок - неизвестно кол-во оценок. Всё тривиально просто - нам уравнение с одной неизвестной: x / 100 = 1/4 Где, как ты уже поняла: x - кол-во пятёрок, 100 - суммарное кол-во оценок и 1/4 наша некая вероятность. Решаем уравнение: x = 100/4 = 25 Значит, ученик получил 25 пятёрок.