Для решения задачи проверки, содержит ли данное слово заданную подстроку, мы можем использовать язык программирования BASIC. Давайте рассмотрим, как можно написать такую программу шаг за шагом.

Сначала нам нужно определить переменные, которые будут использоваться в программе. Мы будем использовать следующие переменные:

• word - строка, в которой мы будем искать подстроку.
• substring - строка, которую мы ищем в word.
• position - позиция, на которой начинается substring в word.

Мы будем запрашивать у пользователя ввод слова и подстроки. Это можно сделать с помощью команды INPUT.

Для поиска подстроки в слове мы можем использовать встроенную функцию INSTR, которая возвращает позицию первого вхождения подстроки в строке. Если подстрока не найдена, функция вернет 0.

В зависимости от результата поиска, мы выведем сообщение о том, содержится ли подстрока в слове.

10 INPUT "Введите слово: "; word$
20 INPUT "Введите подстроку для поиска: "; substring$
30 position = INSTR(word$, substring$)
40 IF position > 0 THEN
50     PRINT "Подстрока найдена на позиции: "; position
60 ELSE
70     PRINT "Подстрока не найдена в слове."
80 END IF

1. На строках 10 и 20 мы запрашиваем у пользователя ввод слова и подстроки.
2. На строке 30 мы используем функцию INSTR, чтобы найти позицию подстроки в слове.
3. На строке 40 мы проверяем, больше ли позиция 0. Если да, то подстрока найдена, и мы выводим ее позицию.
4. Если позиция равна 0, значит, подстрока не найдена, и мы выводим соответствующее сообщение.

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