//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.
Тестовые решения: Введите предложение: А роза упала на лапу Азора Введите искомое слово: роза Слово входит в предложение
Введите предложение: Вчера смотрели старую кинопанораму Введите искомое слово: кино Слово не входит в предложение
Введите предложение: Интересное было кино или так себе? Введите искомое слово: кино Слово входит в предложение
Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о контексте (подстроке)
list = []
while True:
n = int(input("nb: "))
if n == 0:
break
list.append(n)
res = 1
sum = sum(list)
for x in list:
if x * x > sum:
res *= x
print(res)
# 2def isPerfectSquare(num):
s = int(num**0.5)
return s * s == num
def isFibonacciNumber(n):
return isPerfectSquare(5 * n * n + 4) or isPerfectSquare(5 * n * n - 4)
list = []
while True:
n = int(input('nb : '))
if n % 2:
odd = n
break
list.append(n)
if isFibonacciNumber(n):
print([x for x in list if not(x % 3)])
else:
print([x for x in list if not(x % 5)])
# 3list = []
N = int(input('N = '))
for i in range(N):
n = int(input('nb : '))
list.append(n)
print(sum([x for x in list if x * x % 10 == 9]))