DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦7268bb2c9⟧

    Length: 480 (0x1e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »DIVISORE«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »DIVISORE« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »DIVISORE«

Text

0010 // ---------------------- divisor --------------------
0020 // Finder samtlige divisorer i et givet tal.
0025 INTEGER TAL,D
0030 INPUT "Indtast et tal (større end 1):  ":TAL
0040 D:=2
0050 PRINT TAL;" har følgende divisorer:    "
0060 REPEAT 
0070 IF TAL MOD D=0 THEN 
0080 PRINT D;
0090 IF D<>TAL/D THEN PRINT CHR$(TAL/D,5)
0100 ENDIF 
0110 D:=D+1
0120 UNTIL D>SQR(TAL)
0130 PRINT TAL