ответить теорией на вопрос "как определить входить ли одна строковая переменная в состав другой." (язык pascal) нигде не могу найти статью или раздел в книге
Открываете раздел по языку набираете ключевое слово: string. Смотрите все процедуры и функции, для работы с переменными типа string Находите описание функции Pos
function Pos(subs,s: string): integer; Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0
Если строка subs входит в строку s, то функция возвращает значение, большее нуля, номер первого символа в сроке s, начиная с которого, строка subs входит в строку s. Например, subs:='123'; s:='785123456'; k: integer; k:=Pos(subs,s); значение переменной k = 4; Второй пример: subs:='123; s:=623145; k:=Pos(subs,s); k =0; строка subs не входит в строку s
Из описания следует, что x,y,z - целые неотрицательные числа. Слово "Рыбка" выводится всегда, поскольку х либо меньше 6, т.е. равно 0,1,2,3,4,5, либо больше 5, т.е. равно 6,7,8,9,10. Соответственно, слово "Птичка" не будет выведено никогда. Если y>7 (y=8,9,10), то условие y mod 2 = 3 всегда ложно (остаток от деления на два не может быть равен трем) и поэтому выводится слово "плавает". Если же y<=7, то не выводится ничего. При z, кратном 3 (z=0,3,6,9) проверяется истинность сложного высказывания (x div 2 > 4) and (x mod 2<>1). Оно истинно если при целочисленном делении х на два получается число большее четырех, т.е. при х=10 и при этом х должен быть четным. И тогда будет напечатано в "пруду". Если же это высказывание ложно, печатается "под облаками". И в конце выводится точка. Итак, при значениях x,y,z не превышающих 10: a) Рыбка плавает в пруду. - x=10, y∈[8,9,10], z∈[0,3,6,9] b) Птичка летает в пруду. - никогда c) Птичка под облаками. - никогда d) Рыбка летает под облаками. - никогда e) Птичка плавает под облаками. - никогда f) Рыбка летает. - никогда
