DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦701d2a676⟧ TextFile

    Length: 256 (0x100)
    Types: TextFile
    Names: »SIDE259«

Derivation

└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
    └─ ⟦this⟧ »SIDE259«

TextFile

0010 INPUT "tast tallet n: ": n
0020 rodn:= SQR(n)
0030 p:= 3
0040 REPEAT 
0050   IF n MOD p=0 THEN
0060     q:= n DIV p
0070     PRINT " p = ",p,"  og q = ",q
0080     STOP 
0090   ELSE 
0100     p:= p+2
0110   ENDIF 
0120 UNTIL p>rodn
«eof»