Розв’язати систему рівнянь методом Крамера. Розв’язати систему рівнянь за до оберненої матриці. Виконати операції над матрицями. При розв’язанні систем рівнянь обов’язково виконати перевірку.
//PascalABC.Net 3.0, сборка 1064 var s,w:string; begin Write('Введите предложение: '); Readln(s); Write('Введите искомое слово: '); Readln(w); s:=' '+s+' '; if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение') else Writeln('Слово не входит в предложение') end.
Тестовые решения: Введите предложение: А роза упала на лапу Азора Введите искомое слово: роза Слово входит в предложение
Введите предложение: Вчера смотрели старую кинопанораму Введите искомое слово: кино Слово не входит в предложение
Введите предложение: Интересное было кино или так себе? Введите искомое слово: кино Слово входит в предложение
Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о контексте (подстроке)
Вот на языке Python:
from random import randint
count = int(input('Введите длину последовательности => '))
massiv = [randint(1, 100) for i in range(count)]
print('Массив', massiv)
num = int(input('Введите какое число надо найти => '))
position = 1
for i in massiv:
if i == num:
print('Число имеет',position, 'позицию')
exit()
position += 1
print('Такого числа там нет')
Вопрос только насчёт номера числа. Если тебе надо считать с 0, 1 и т.д., то измени position с 1 на 0.
Я сделал, чтобы счёт числа шёл с одного, дальше сам решай.