У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1;
2. умножь на x
(x — неизвестное натуральное число; x ≥ 2).

Выполняя первую из них, Альфа увеличивает число на экране на 1, а выполняя вторую, умножает это число на x . Программа для исполнителя Альфа — это последовательность номеров команд. Известно, что программа 11211 переводит число 5 в число 73 . Определите значение " x "

import random

import math  

boxOfNumbers = [random.uniform(1, 1000) for x in range(0, 10)]

   

#Создание функции с названием "Integer", вычисляющую целые части чисел в списке    

def Integer(parameter): #Создание параметра с названием "parameter"

   for i in range (0, len(boxOfNumbers)):

       boxOfNumbers[i] = int(boxOfNumbers[i]) #Преобразование числа с плавающей точкой в целое число

   return(boxOfNumbers)

   

print('Separates all integer parts of numbers, just enter something on the keyboard: ')    

print(Integer(parameter = input())) #Здесь строка принимается как параметр, я же правильно написала, да-да? :D

#Создание лямбда функций: переменной Even — присваивается значение лямбда функции, которая из себя представляет отфильтрованный список

#Вызываем функцию Integer, чтобы фильтровался список, состоящий уже из целых чисел

Even = max(list(filter(lambda even: even % 2 == 0, Integer(5 #Даём любое значение параметру "parameter"

Odd = max(list(filter(lambda odd: odd % 2 == 1, Integer(5 #Здесь то же самое

#Создаём словарь с названием "Dictionary", в нём хранятся категории: "Even Numbers", "Odd Numbers", со значениями соответсвенно: Even, Odd

dictionary = {'Even Numbers' : Even,

   'Odd Numbers' : Odd

}

#Получаем доступ к значениям из категорий, с обьявления новых переменных

EvenNumbers = dictionary.get('Even Numbers')

OddNumbers = dictionary.get('Odd Numbers')

print('\nThe values of the largest even and odd number:')

print(EvenNumbers)

print(OddNumbers)

Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:

var s,a:string;
    begin
    write('Введите строку : ');
    readln(s);
    write('Введите слово : ');
    readln(a);
       if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
       else writeln('В строке такого слова нет');
    end.

Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть

Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет