<раздатка> | /* | */ | N=1e6 | say 2 | do i=3 to N | if s.i <> 1 | then do;say i;j=i | do (N/i)%2; j=j+2*i | s.j=1;end;end;i=i+1;end </раздатка> Акростихи слышали, наверное, все. Акропроза была в прошлом вопросе. А для решения какой задачи предназначена программа, приведенная на раздаточном материале?
Поиск простых чисел, не превышающих 1.000.000.
Комментарии:
Программа иллюстрирует единство формы и содержания: количество символов
в каждой строке программы равно очередному простому числу. Программа
написана на языке ReXX.
Редакторская группа благодарит за помощь в подготовке и тестировании
пакета: Эраста Куненкова (Узловая - Москва), Анну Марковскую (Москва),
Андрея Волыхова (Москва), Александра Коровайного (Ейск), Наталью Панчук
(Таганрог), Татьяну Андрееву (Москва).
Автор: Эраст Куненков (Узловая - Москва)
Источник: Личный опыт автора вопроса, идея из книги В.Ф. Очкова и Ю.В. Пухначева "128 советов начинающему программисту" (М.: Энергоатомиздат, 1991).
Чемпионат: Открытый кубок МГУ (Москва)
Тур: 1 тур
Номер: Вопрос 12
Показать как json