Оқулықтан информатика пәні бойынша өткен тақырыптардың бірін таңда. Тармақшаларға бөле отырып, оның мазұмынын жаз және оған атау бер​

//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.

Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение

Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение

Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение

Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)

1. 1987/7=283 остаток   6

283/7=40 остаток   3

40/7=5 остаток   5

5/7=0 остаток   5

1987(10)=5536(7)

1010101011(2)=1*2^9 +0*2^8 +1*2^7 +0*2^6 +1*2^5 +0*2^4 +1*2^3 +0*2^2 +1*2^1 +1*2^0 =683(10)

Переведём 1AE из системы счисления 16 в десятичную систему счисления :

1AE(16)=1*16^2 +10*16^1 +14*16^0 =430(10 )

430(10)=x(9)

430/9=47 остаток   7

47/9=5 остаток   2

5/9=0 остаток   5

430(10)=527(9 )

1AE(16) =527(9)

2. 11011110(2) * 110(2)=10100110100(2)

11011110(2)=222(10) 110(2)=6(10)

10100110100(2)=1332(10)

1101111(2) - 110111(2) = 111000(2)

1101111(2)=111(10) 110111(2)=55(10)

111000(2)=56(10)

1011110101(2) + 1110111(2) = 1101101100(2)

1011110101(2)=757(10) 1110111(2)=119(10)

1101101100(2)=876(10)