Помогите решить задачу.
В модуле управляемого приложения создайте структуру «Числа». Ключом
структуры является слово «Число» и числовое значение (например, «Число392»), а значением
соответствующий одно из слов – "Простое", "Не простое".
Заполните структуру для диапазона чисел от 1 до 1000. Напомню, что простым числом является то, которое нацело делится на само себя и на 1.

Я создал структуру:

Процедура Структура() Экспорт
Стр = Новый Структура;        
    Счетчик=0;
    Пока Счетчик<1000 Цикл
        Счетчик=Счетчик+1;    
        Стр.Вставить("Число"+формат(Счетчик,"ЧГ="));    
    КонецЦикла;
КонецПроцедуры

Теперь мне надо создать значения! Но я не могу создать алгоритм простых чисел!

https://ru.wikipedia.org/wiki/Решето_Эратосфена

ЕМНИП, нет ещё алгритма формирования простого числа.

(0) задача ясна. какие мысли?

бруталфорсно - сиди и дели на все предыдущие...

(0) "От 1 до 1000" - это не совсем то же самое, что "От 1 до 999", как у тебя.
*вооружился попкорном*

https://ru.wikipedia.org/wiki/Решето_Аткина#.D0.92.D0.B5.D1.80.D1.81.D0.B8.D1.8F_.D0.B0.D0.BB.D0.B3.D0.BE.D1.80.D0.B8.D1.82.D0.BC.D0.B0_.D0.BD.D0.B0_.D1.8F.D0.B7.D1.8B.D0.BA.D0.B5_Pascal

ВОт тут для Паскаля исходник даже есть.

(2) в очень грубом виде есть что-то подобное есть, но там столько математики, что проще стандартными методами - мозг живее будет

только хардкор

https://ru.wikipedia.org/wiki/Тест_Агравала_%E2%80%94_Каяла_%E2%80%94_Саксены

(5) бугага

(5) это оптимизация

(5) там будет ещё один проход после КонецЦикла

(5) садись, два

(12) ничо, что он инкрементацию делает в первой же строке цикла?

(13) в любом случае не 1-999)

(13) Все равно извращенец

(13) люди, завязывайте с веществами...

Кто напишет код 1С решающий поставленную задачу - тот редиска

уже цикл простейший в мозгу прокрутить не могут...

wiki:Список_простых_чисел
просто загрузи и не парься. Все лдавно расчитано.

я предлагаю идти по пути (4)... если X%Y дает 0 - выпиливаем из простых

нам эти решеты не указ

(19) О точняк, напиши код загрузки с сайта wiki:Список_простых_чисел
потом парсер этой таблицы и заполняй

(0) Это же проще пареной репы http://ru.wikipedia.org/wiki/Решето_Эратосфена

(22) Отстань, мы не ищем простых путей

ждем от автора тест агравала—каяла—саксены в реализации 1с на рекурсивных функциях

(23) Да уж, математиков среди программистов 1С - по пальцам одной руки пересчитать на всю Россию.

(25) Зачем в 1С математики. Это язык для автоматизаци бреда клиентов.

(24) про вещества уже говорили? ;)

(24) А может ТС и есть Агравал или Каял (а может даже и сам Саксена). Просто он 1С не знает

http://habrahabr.ru/post/133037/

(23) Тогда КОД:
Короче не напишите.

Для Сч=1 По 1000 Цикл
        Ответ = Вопрос(Строка(Сч) + " простое число?", РежимДиалогаВопрос.ДаНет);
        Стр["Число" + Строка(Сч)] = (Ответ = КодВозвратаДиалога.Да);                         
    КонецЦикла;

(30) на тысяче поломаешься ;)

да там простых чисел всего несколько десятков будет. захардкодить и дело с концом! и работать быстро будет

(30) 4+ "соответствующий одно из слов – "Простое", "Не простое"

(31) не было времени проверить, до 500 дошел, потом сдался:))),
хотя 1000 у него в структуре должна быть.

зачем оболтусу помогаем тестовое задание написать?
пусть сам думает

"Напомню, что простым числом является то, которое нацело делится на само себя и на 1."
По этому определению и 1 - простое число

(36) Два должно быть делителя

(37) в (0) другое определение
поэтому любое целое число нацело делится на себя и на 1, так что просто в цикле заполнить

интересно
потом код выложите?

А че в цикле нельзя сделать? например число 13.
ччч = 13;
Пока истина цикл
если ччч%(ччч-1)=0 и ччч>1 тогда
Этопростое= Истина;
иначе
Этопростое = ложь;
КонецЕсли;

конеццикла;

еще там прервать; в цикле надо

(40) ччч%(ччч-1)=0 - ответ 2.

На 1С решил посчитать
http://otvet.mail.ru/question/14474644

лучше решите Можно ли подобрать рациональные числа? чем ерундой маяться

(42) в смысле?

(44) А чем твоя ерунда лучше этой?

(45) у вас получится только одно число простое - это 2. ВСе остальные сложные

(44) теорема Ферма не в зачет

(45) простые числа это 1, 3,5, 7, 13 и т д. сначала цикл по всем числам то есть ччч=1,2,3,4,5,6,7 а в цикле проверять внутри еще

(44) Картинку ждем, после нее все должно стать очевидно)

(26) Я считаю, что без знания таких аппаратов, как графы, деревья и комбинаторика ни один более-менее серьезный и универсальный софт типа самой платформы 1С, эксель, проджект или еще что-то просто невозможен хоть на 1С, хоть на C#, хоть на ассемблере. Элементарно, к примеру, проверить нет ли зацикливания иерархии справочника или не зациклены ли виды расчета по зависимостям, или попробуйте проверить ссылочную целостность перед удалением помеченных. А? Многие такое осилят?

+(49) и 2 тоже наверное простое

(52) Тогда уж и 11...

(49) 1 не простое число

(3) ну берем ччч = 3 ТОгда

если ччч%(ччч-1)=0 и ччч>1  ложь, то есть число 3 у вас не простое.

(55)Давая с 1 до 9 брать не будем, там исключения всякие)))

Для сч=10 по 1000
ччч = сч;
запч= сч-1;
Пока истина цикл
если ччч%(запч)=0 и ччч>10 тогда
Этопростое= Истина;
прервать;
иначе
Этопростое = ложь;
КонецЕсли;
запч= ччч-1;

конеццикла;
конеццикла;

(56) ну реально это фантастика, любые числа возьми, 13 разве может поделиться на 12? Или 100 на 99? Ни не бывает такого.

(58) а кто говорит о делении Оператор % считает остаток от деления 13%12 = 1 т.к. остаток от деления 1

13/12 = 1 1/12 так может понятнее

Стр = Новый Структура;        
    Счетчик=0;
    Пока Счетчик<1000 Цикл
        Счетчик=Счетчик+1;    
        Стр.Вставить("Число"+формат(Счетчик,"ЧГ="),"Простое");    
    КонецЦикла;
П=2;
Пока П<=500 Цикл
    Счетчик=П;
    Пока (Счетчик+П)<=1000 Цикл
        Счетчик = Счетчик+П;
        Стр["Число"+формат(Счетчик,"ЧГ=")]="Не простое";        
    КонецЦикла;
    П=П+1;
КонецЦикла;
Стр["Число1"]="Не простое";

Если ТекущийПользователь.Пол = Перечисления.ПолФизЛиц.Мужской Тогда
ВсеЧтоМеньшеИРавноПростыеЧисла = 21;
Иначе
ВсеЧтоМеньшеИРавноПростыеЧисла = 20;
КонецЕсли;

(61) До 500 не надо 1000 проверять. Достаточно проверять 2,3,5,7,11,13,17,19,23,29,31. Потому что если x составное, то хоть один множитель меньше квадратного корня

еще вариант
для сч=1 по 1000 цикл
если сч=1 тогда
сообщить("простое");
иначеесли сч=2 тогда
сообщить("простое");
...
иначеесли сч=1000 тогда
сообщить("не простое");
конецесли;

конецикла;

Для Сч = 1 По 1000 Цикл
    Простое = Истина;
    Сч1 = 2;
    Пока Сч1*Сч1 <= Сч Цикл
        Если Сч%Сч1 = 0 Тогда
            Простое = Ложь;
            Прервать;
        КонецЕсли;
        Сч = Сч + 1;
    КонецЦикла;
    Структ.Вставить("Число" + Сч,?(Простое,"Простое","Непростое");
КонецЦикла;

С тебя сто баксов. Или 10% с каждого оплаченого заказа

(66) где решето???

(67)
Зачем?

Решето потянет на 200

Структ = Новый Структура;
Для Сч = 1 По 1000 Цикл
    Структ.Вставить("Число" + Сч, "Простое");
КонецЦикла;


Р = 2;
ФлагВыхода = Ложь;
Пока НЕ ФлагВыхода Цикл
Сч = Р;
Пока Сч <= 1000 Цикл
   Стукт.Вставить("Число" + Сч, "Непростое");
   Сч = Сч + Р;
КонецЦикла;
Для Сч = Р+1 По Цикл
   Если Структ["Число" + Сч] = "Простое" Тогда
       Прервать;
   КонецЕсли;
   ФлагВыхода = Истина;
КонецЦикла;
Р = Сч;
КонецЦикла;

Сч = Р поменять на Сч = Р*Р

(70) Спасибо! очень помогло! осталось только доработать

P.S.: Никит, не суди строго! =)