1) дано число 87395120474. в нём удалили 3 цифры, сдвинув оставшиеся вместе и не меняя их порядок следования. какое минимальное число, делящееся на три, можно получить таким образом из исходного числа?
2) гена любит число 13. он решил посчитать, сколько есть трёхзначных чисел, внутри которых есть это число. например, подходят числа 135, 213, 193, но не 312, потому что в нём 1 и 3 идут в неправильном порядке. гене посчитать количество таких чисел.
3) у народа кукси алфавит состоит из 15 букв. сколько бит информации содержит в этом алфавите слово из 13 букв?
4) бельчонок придумал интересный шифрования слов (правда, пока только шестибуквенных). сначала нужно переставить 1 букву на место 2, 2 на место 3, 3 на место 4, 4 на место 1, а 5 и 6 поменять местами. бельчонок провёл одно слово через этот алгоритм 10 раз и на выходе получил слово beamer. какое слово было в начале?
5) найдите закономерность в последовательности чисел. в ответ запишите 3 следующих числа в ряде. числа нужно писать через запятую, например 1,2,3.

111, 120, 122, 201, 210, …
+ вопросы ниже

a=int(input('Введите первое число: ')

b=int(input('Введите второе число: ')

c=int(input('Введите третье число: ')

if a > b and c:

  print('Наибольшее число: ',a)

elif b > a and c:

  print('Наибольшее число: ',b)

else c > b and a:

  print('Наибольшее число: ',c)

Объяснение:

Первые три команды отвечают за добавление переменным значение, которые будут введены пользователем.

if,elif,else ставят условие, при котором будет выполнено следующие условия, так как переменных 3, то мы вводим ее три раза, каждый раз редактируя ее.

Все они сделаны по таком принципу, если True(правда), то выполнить действие, если False(неправда), то действие отменяется.

В данных командах написано, если а больше b и c, то выполнится условие и на экран выведится текст, с наибольшем числом a.

Если условие не выполняется, программа переходит к условию ниже, если оно аналогично не выполняется, оно переходит к третьему.

Uses
  Crt;
Var
  i, N, kol: byte;
  sum_rost, sr_rost: real;
  team: array[1..100] of real;
Begin
  sum_rost := 0.0;
  sr_rost := 0.0;
  kol := 0;
  write('Введите количество членов команды');
  read(N);
  writeln('Введите рост каждого члена команды');
  for i := 1 to N do
    begin
      readln(team[i]);
      sum_rost := sum_rost + team[i];
    end;
  sr_rost := sum_rost / N;
  for i := 1 to N do
    if (team[i] > sr_rost) then
      kol := kol + 1;
  writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')');
  write(' равно ', kol);
End.

Я надеюсь надо было на паскале написать?)