1 2 3 | INPUT "vvedite slovo ", a$ INPUT "vvedite bukvu ", b$ IF INSTR(a$, b$) <> 0 THEN PRINT "yes" ELSE PRINT "no" |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 | INPUT "vvedite slovo ", a$ INPUT "vvedite bukvu ", b$ IF INSTR(a$, b$) <> 0 THEN PRINT "yes" ELSE PRINT "no" |
Тестирование выполнено в программе QB64 ( Скачать )