Помогите решить задачу на паскаль

[p51x]

Сообщение от сфинкс

Количество нулей в очередной степени числа 10^N вычисляет логарифм +1

Кол-во нулей в степени 10^k вычисляется без всяких логарифмов. Правда,нафига она надо?

Сообщение от сфинкс

Значит возможно вычислять на каком месте 1-цы единицы
зная порядок вида 100 это 1 и далее нулей как =LOG(100;10)=2

Что? 110... 1 на 1м месте

Сообщение от сфинкс

Осталось стартовать цикл и запомнить новые слова: логарифм и интеграл

А еще градиент и расстояние Миньковского... что за бред? Причем тут интеграл?

[сфинкс]

пока автор бессмысленно ищет помощи на другом форуме
https://www.cyberforum.ru/pascal/thread3132708.html

программа на языке высочайшего уровня бэйсик qbasic qb64

строит 3 столбика: номер символа и интеграл и 0 или 1

и 3-й столбик повторяет ряд

'1101001000100001000001.bas
'1234567890123456789012
For k = 1 To 22:
    n = -1: m = 1
    1 m = m + n + 1
    If m = k Then Print k, m, 1: GoTo 2
    If m > k Then Print k, m, 0: GoTo 2
    n = n + 1:
    GoTo 1
2 Next

Вообще похожий тип задач: дата года зная номер дня

Вводить номер вручную: неуважение пользователя
поэтому ухудшать переводя на другой язык доверяю здешним

Зато дарю ссылку для проверки онлайн

и вообще все могут + должны = обязаны
размещать ссылки на проверки онлайн

https://www.jdoodle.com/a/6GCT

и оказывается там копируется ответ

1 1 1 
2 2 1
3 4 0
4 4 1
5 7 0
6 7 0
7 7 1
8 11 0
9 11 0
10 11 0
11 11 1
12 16 0
13 16 0
14 16 0
15 16 0
16 16 1
17 22 0
18 22 0
19 22 0
20 22 0
21 22 0
22 22 1

Домашнее задание: сделать то же через логарифм

https://www.youtube.com/watch?v=V3gfrGL2yro

[p51x]

это уже откровенный флуд