n = ЭлементыФормы.ПредельноеЧисло.Значение; A = Новый Массив(n+1); Для Индекс = 0 По A.ВГраница() Цикл A[Индекс] = Истина; КонецЦикла; Сообщить(Строка(ТекущаяДата())); Для i = 2 По n Цикл Если Pow(i,2)>n Тогда Прервать; КонецЕсли; Если A[i] Тогда j = Pow(i,2); Пока j<=n Цикл Если A[j] Тогда A[j]=Ложь; КонецЕсли; j = j + i; КонецЦикла; КонецЕсли; КонецЦикла; Сообщить(Строка(ТекущаяДата())); Счетчик = 0; Стр = ""; Для i = 2 По n Цикл Если A[i] Тогда Счетчик = Счетчик + 1; КонецЕсли; КонецЦикла; Сообщить(Строка(Счетчик));
Решето Эратосфена
Разработка - Математика и алгоритмы
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкой