                                                      23.02.08 М1

  М О Н И Т О Р-8 0  (3.6)   26.11.83М       (  МС " Д У Б Н А " ИАЭ  )             ШИФР    419999000000







                    ЖЖЖЖ  ЖЖЖЖ  ЖЖЖЖ  ЖЖЖЖЖ ЖЖЖЖЖ Ж   Ж       ЖЖЖЖ  ЖЖЖЖ   ЖЖЖ  Ж   Ж ЖЖЖЖЖ
                    Ж   Ж Ж   Ж Ж       Ж     Ж   Ж   Ж       Ж   Ж Ж   Ж   Ж   ЖЖ  Ж   Ж
                    Ж   Ж Ж   Ж ЖЖЖ     Ж     Ж   Ж   Ж       Ж   Ж Ж   Ж   Ж   Ж Ж Ж   Ж
                    Ж   Ж ЖЖЖЖ  Ж       Ж     Ж    Ж Ж        Ж   Ж ЖЖЖЖ    Ж   Ж  ЖЖ   Ж
                    ЖЖЖЖ  Ж Ж   Ж       Ж     Ж     Ж         ЖЖЖЖ  Ж Ж     Ж   Ж   Ж   Ж
                    Ж     Ж  Ж  Ж       Ж     Ж     Ж         Ж     Ж  Ж    Ж   Ж   Ж   Ж
                    Ж     Ж   Ж ЖЖЖЖЖ   Ж     Ж     Ж         Ж     Ж   Ж  ЖЖЖ  Ж   Ж   Ж








*NАМЕ РRЕТТУ РRINТ
           *ЕDIТ
                                                      23.02.08 М1
 РЕДАКТОР ТЕКСТОВ
    (01.06.82)I
         *W
         *L:*САLL РRЕТТУРR
         (*ЦЕЛЫЕ ЧИСЛА ОТ 2 ДО 100: РЕШЕТО ЭРАТОСФЕНА*)РRОGRАМ
                                             ЕRАТОSТН(ОUТРUТ);
         VАR РRIМЕ:АRRАУ[2..100]ОF ВООLЕАN;N,К:INТЕGЕR;_((*ОБНУ
                                             ЛИМ РRIМЕ*)FОR
         N:=2 ТО 100 DО РRIМЕ[N]:=ТRUЕ;(*ВЫЧИСЛИМ РRIМЕ*)FОR N:
                                             =2 ТО 100 DО IF
         РRIМЕ[N]ТНЕN FОR К:=2 ТО ТRUNС(100/N)DО РRIМЕ[N*К]:=FА
                                             LSЕ;(*ПЕЧАТЬ
         РRIМЕ*)FОR N:=2 ТО 100 DО IF РRIМЕ[N]ТНЕN WRIТЕ(N)_).
               ФАЙЛ 1        :ЗАПИСАНО     6 КАРТ (0001 ТР.)
         *ЕЕ
           *РЕRSО:670670
 LIВRАRУ ОТ  26.02.82 М3
           *РЕRSО:670440,СОNТ
 LIВRАRУ ОТ  26.02.82 М3
           *САLL УЕSМЕМОRУ
           *RЕАD:1
           *САLL РRЕТТУРR
 ЕRАТОSТН                                                                                *** VЕRSIОN 25.02.82 ***
           *RЕАD ОLD
           *RЕАD:27000
       ≥≥  *САLL *РАSСАL
 РАSСАL СОМРILЕR 15.0 (15.02.82)
 00000    1  0 (*ЦЕЛЫЕ ЧИСЛА ОТ 2 ДО 100: РЕШЕТО ЭРАТОСФЕНА*)
 00001    2  0 РRОGRАМ ЕRАТОSТН(ОUТРUТ);
 00001    3  1 VАR   РRIМЕ: АRRАУ[2..100]ОF ВООLЕАN; N,К: INТЕGЕR;
 00007    4  2 _( (*ОБНУЛИМ РRIМЕ*)
 00010    5  2   FОR
 00010    6  2      N:=2 ТО 100 DО РRIМЕ[N]:=ТRUЕ; (*ВЫЧИСЛИМ РRIМЕ*)
 00025    7  2   FОR N:=2 ТО 100 DО
 00027    8  2    IF
 00027    9  2       РRIМЕ[N]
 00027   10  2    ТНЕN
 00033   11  2*    FОR К:=2 ТО ТRUNС(100/N)DО РRIМЕ[N*К]:=FАLSЕ; (*ПЕЧАТЬ
 00054   12  2   РRIМЕ*)
 00054   13  2   FОR N:=2 ТО 100 DО
 00056   14  2    IF РRIМЕ[N]
 00100   15  0 ТНЕN WRIТЕ(N)_).
       99  *RЕАD ОLD
           *ЕХЕСUТЕ

        ЕRАТОSТН   01000        РАSРМDАD С 02672        МОNRЕАD*   03752
        РRОGRАМ  Е 01000        SТОР*      02673        RЕАD*ЕRR Е 04027
        Р/1D     С 01122        SРАСЕ*   С 02714        LUN*МОN    04045
        *ОUТРUТ* С 01340        РАSОUТ     02715        Р/НIDЕ     04053
        Р/SУS      01376        Р/РRINТ  Е 02716        Р/ЕDIН   Е 04056
        Р/МОD    Е 01412        РАSТN    Е 02754        Р/РАGЕS    04061
        Р/DIV    Е 01416        РАSWНТ   Е 02770        РАSРАGN* С 04062
        Р/IТ     Е 01430        Р/НТ       03031        РАSDRN*  С 04063
        Р/СО     Е 01432        РАSZЕRО* С 03043        РАSDRUМ* С 04064
        Р/RЕ1    Е 01440        Р/WХ       03044        Р/SТАСК  С 04065
        Р/RЕ2    Е 01602        Р/WХD    Е 03053        РАSРЕRID С 04066
        РАSСТRР  Е 01635        РАSЕОF     03071        РАSРLUS* С 04067
        Р/GF     Е 01710        IОХХРКRТ   03110        Р/А7       04070
        Р/RАСРАК Е 01747        RЕАD*    Е 03112        РАSНID     04076
        РАSINВUF Е 02017        РАSСЕLUР С 03144        РАSDIН   Е 04101
        РАSGIVЕР Е 02054        Р/ЕR       03145        МОN*IТОR   04105
        Р/РF     Е 02135        Р/7А       03154        РLВЕG    Е 04114
        Р/WОLN   Е 02166        Р/7АD    Е 03156        РLСLО    Е 04122
        Р/WL     Е 02167        Р/SР       03171        АSАVЕ*   Е 04130
        Р/RF     Е 02241        РАSМINS* С 03177        SАVЕ*НID Е 04135
        Р/ТF     Е 02324        Р/СW       03200        FОR*АLL  Е 04152
        Р/SС       02357        Р/ТRРАGЕ   03202        ОН*      Е 04154
        Р/DА       02367        Р/ВХ       03234        ОН*1     Е 04161
        Р/IS       02402        Р/ЕN     Е 03246        ISО/GОSТ   04170
        Р/ТR       02405        Р/WО       03262        СLЕАRLЕХ   04237
        Р/МI       02410        Р/WR       03313        DRUМТАР*   04251
        Р/WI       02413        РАSТЕNS  Е 03501        СОSУТISО   04277
        Р/ЕF       02474        РАSЕХFТ* С 03525        СОZУТISО Е 04277
        Р/Е      Е 02477        *РАSDDS* С 03544        IОХХТТWТ   04353
        Р/1        02502        RGЕХРОRТ С 03545        ТТРRINТD Е 04357
        РАSРМD     02506        *РАSТЕL* С 03546        ТТРRINТ  Е 04357
        Р/РМDSЕТ Е 02541        РАSЕVN     03577        ТТРRIКS  Е 04371
        РАSЕNDS* С 02647        РАSNВ8     03620        /IР*     Е 04437
        РАSЕОLSУ С 02650        РRINТ8     03630        Р/FIRР   С 06000
        РАSЕОFСD С 02651        РRINТ80  Е 03630        СНКWОRD* С 10000
        Р/ВЕХF     02652        РULТ       03666        ТSТАТЕ*  С 10001
        Р/МD       02657        Р/RС       03674          СВОБОД   10002
        Р/DI       02666        РАSISОХТ   03720

         2         3         5         7        11        13        17        19        23        29        31        37
   41        43        47        53        59        61        67        71        73        79        83        89        97
 КОНЕЦ ЗАДАЧИ
 00411: 00 074 0000	*74
