Паскаль среди 8 чисел, введённых с клавиатуры, выписать кратные a

Const n=8;
var
b: array[1..n] of integer;
a,i: integer;
begin
readln(a);
for i:=1 to n do readln(b[i]);
for i:=1 to n do if b[i] mod a=0 then writeln(b[i]);
end.

если нужно без массива, напишите

Объяснение:

Как создать оглавление, если у меня документ состоит из глав, разделов и подразделов? Напр., 1 Глава, 1.1 Раздел, 1.1.1. Подраздел.

Для создания многоуровневого оглавления необходимо сначала задать уровни заголовков по тексту. И это можно сделать несколькими :

1. На вкладке Главная в группе Стили выберите стиль заголовка.

2. Перейдите в режим документа Структура с мини-панели в правом нижнем углу окна документа.

Или через вкладку Вид группу Режим просмотра документа.

Здесь вы увидите структуру документа и сможете каждому элементу присвоить свой уровень, при этом, не меняя форматирования самих элементов.

Теперь, когда документ у вас структурирован, установите курсор в том месте, где должно быть оглавление, и с меню Ссылки группы Оглавления нажмите кнопку Оглавление. Выберите любое Автособираемое оглавление. Программа автоматически определит структуру оглавления по заданным уровням в документе.

ответ с постусловием:

def F(k):

 if k == 1: return 1

 return 1/k + F(k-1)

A = float(input('Введите A: '))

i = 1

while True:

 s = F(i)

 if s > A: break

 s1 = s

 i += 1

print('Наибольшее K =', i-1)

print('Сумма при данном К = ', s1)

Или с предусловием, но это менее эффективно с точки зрения вычислительных ресурсов:

def F(k):

 if k == 1: return 1

 return 1/k + F(k-1)

A = float(input('Введите A: '))

i = 0

s = 0

while s < A:

 i += 1

 s = F(i)

print('Наибольшее K =', i-1)

print('Сумма при данном К =', F(i-1))