паскаль Составить программу, которая запрашивает число, если оно положительное, то выводит его. Ввод чисел заканчивается, если ввели ноль

1-b

2-a

3-a

4-c

5-a

Объяснение:

1. Какие задачи выполняют уровни OSI в процессе передачи данных по сети:

a) уровни выполняют одинаковые задачи, постоянно повторяя передающие сигналы по сети;

b) каждый уровень выполняет свою определенную задачу;

c) первых три уровня выполняют одинаковые задачи, последующие выполняют определенные задачи.

2. Верно ли утверждение: «Каждый уровень модели выполняет свою функции. Чем выше уровень, тем более сложную задачу он решает»:

a) верно;

b) не верно.

3. Какой уровень управляет передачей данных по сети и обеспечивает подтверждение передачи:

a) транспортный;

b) канальный;

c) сеансовый.

4. Какой уровень поддерживает взаимодействие между удаленными процессами:

А) транспортный;

b) канальный;

c) сеансовый.

5. Какой уровень управляет потоками данных, преобразует логические сетевые адреса и имена в соответствующие им физические:

a) сетевой;

b) представительский;

c) транспортный.

Вроде так)

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

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

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

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

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