/* */ 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.