1. Для чего нужно оглавление?
2. Как с текстового процессора Word можно о
вать автоматический сбор заголовков?
3. Для чего необходимо придать стиль заголовкам?
4. Как уровни заголовков будут влиять на оглавление?
5. Какой создания оглавления для вас предпочтительнее?
Объясните, почему.
6. С какой целью применяется обновление оглавления?
7. В каких случаях используется режим обновить целиком?
8. Как можно быстро перейти из оглавления на необходимый за.
головок?

1. "Школьное" решение

//PascalABC.Net 3.0, сборка 1064
var
  s:string;
  i,k:integer;
begin
  Write('Введите натуральное число: '); Readln(s);
  k:=0;
  for i:=1 to Length(s) do
    if s[i]='0' then Inc(k);
  Writeln('Количество нулей в записи числа равно ',k)
end.

Пример:
Введите натуральное число: 13054000230
Количество нулей в записи числа равно 5

2. Современное решение

//PascalABC.Net 3.0, сборка 1064
begin
  var s:=ReadString('Введите натуральное число: ');
  Writeln('Количество нулей в запиcи числа равно ',s.Where(x->x='0').Count)
end.

Пример:
Введите натуральное число:  13054000230
Количество нулей в записи числа равно 5

// PascalABC.Net 3.0, сборка 1064
var
  s:string;
  n:integer;
begin
  Write('Введите строку: '); Readln(s);
  // a
  n:=Length(s);
  Writeln('Количество символов в строке равно ',n);
  // b
  Writeln(s[1],', ',s[2],', ',s[n]);
  // c
  Writeln(Ord(s[1]),', ',Ord(s[n]));
  // d
  if s[1]=s[n] then Writeln('Первый и последний символы совпадают')
  else Writeln('Первый и последний символы не совпадают');
  // e
  if n mod 2 = 0 then Writeln('Количество символов в строке четно')
  else Writeln('Количество символов в строке нечетно');
  // f
  if Pos('мама',s)>0 then Writeln('Строка содержит слово "мама"')
  else Writeln('Строка не содержит слово "мама"')
end.

Тестовое решение:
Введите строку: Тестовая строка со словом <мама> внутри
Количество символов в строке равно 39
Т, е, и
210, 232
Первый и последний символы не совпадают
Количество символов в строке нечетно
Строка содержит слово "мама"