Причины войны были следующие: обострение Восточного вопроса, противоречия из-за черноморских проливов, политика Англии и Франции, направленная на вытеснение России с Балкан. Важную роль в данном событии сыграл адмирал Нахимов. В ноябре 1853 года Нахимов разгромил Турецкий флот в Синопской бухте. Уничтожил береговые укрепления и взял в плен командующего турецкой эскадрой Осман-Пашу. В 1854-1855 годах Нахимов руководил обороной Севастополя. Был командующим Севастопольского порта, занимал пост временного губернатора Севастополя. Россия потерпела поражение в Крымской войне, потеряла устье Дуная и Южную Бессарабию. России запрещалось иметь военный флот в Чёрном море и укрепления на его берегах. Другим важным событием данного периода стало зарождение военно-полевой хирургии. Причины данного события были следующие: необходимость увеличить качество оказания медицинской солдатам, сократить число людских потерь, одержать победу в войне.
//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.
Тестовые решения: Введите предложение: А роза упала на лапу Азора Введите искомое слово: роза Слово входит в предложение
Введите предложение: Вчера смотрели старую кинопанораму Введите искомое слово: кино Слово не входит в предложение
Введите предложение: Интересное было кино или так себе? Введите искомое слово: кино Слово входит в предложение
Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о контексте (подстроке)
strings = []
string = raw_input("What is the string: ")
while string:
strings.append(string)
string = raw_input("More unntil empty: ")
substring = raw_input("Substring:")
for string in strings:
print "'%s' has %d of '%s'" % (string, string.count(substring), substring)
как-то так, вроде работает