Перед созданием оглавления необходимо убедиться в том, что для всех заголовков в документе использовались стандартные стили заголовков(Заголовок1 – Заголовок9) и выполнена их нумерация с использованием многоуровневого списка (использовать при этом нумерации для заголовков).
Чтобы создать оглавление документа, необходимо выполнить следующее:
1. В документе все заголовки оформить с стилей соответствующего уровня
2. Перейти в режим структуры.
3. На вкладке Главная выбрать команду Многоуровневый список…, далее нумерации для заголовков. Word пронумерует только заголовки.
взято с сайта:http://csaa.ru/sostavlenie-oglavlenija-po-stiljam-zagolovkov/
n=str(input())
i=0
e=0
b=["1","2","3","4","5","6","7","8","9","0"]
while(1==1):
if(n[i:i+1] in b):
e=e+1
else:
break
i=i+1
print(e)
Объяснение:
1)Створюємо змінну, значення якої буде число n
2)Створюємо змінну і, щоб цикл працював, і змінну е, значенням якої буде кількість цифр в числі
3)Створюємо масив, елементи якого є всі цифри.
4) Створюємо цикл, робимо так , щоб він працював безкінечно умовою 1==1, адже ми не знаємо наскільки велике число введе користувач.
5) В циклі робимо умову, яка підраховує кількість цифр, і зупиняє цикл, коли цифр більше немає, тобто цикл опрацював усе число.
6) в кінці циклу пишемо і=і+1, щоб цикл поступово опрацьовував усі цифри з числа.
7) Виводимо кількість цифр
Program Zagacha;
Uses GraphABC;
Var r, a, b: Integer;
Begin
WriteLn('Введите значение r');
ReadLn(r);
WriteLn('Введите значение a');
ReadLn(a);
WriteLn('Введите значение b');
ReadLn(b);
If ((r + a + b) < 30) Or ((r + a + b) > 200) Then
Begin
r := 50;
a := 100;
b := 100;
End;
DrawCircle(Round(Window.Width / 2), Round(Window.Height / 2), r);
DrawRectangle(Round((Window.Width - a) / 2), Round((Window.Height - b) / 2), Round((Window.Width + a) / 2) + 1, Round((Window.Height + b) / 2) + 1);
If (a = b) And (a * b = 4 * r * r) Then
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность вписана')
Else If (a = b) And (a * b = 2 * r * r) Then
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность описана')
Else
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность посторонняя')
End.