|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 640 (0x280) Types: TextFile Names: »DIVISOR2.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler) └─ ⟦this⟧ »DIVISOR2.PAS«
PROGRAM divisor2; VAR tal, gltal, faktor, divisor : INTEGER; BEGIN WRITE(CHR(12), 'Indtast et helt tal: '); READLN(tal); WRITE('Indtast divisor: '); READLN(divisor); faktor := 0; gltal := tal; WHILE tal MOD divisor = 0 DO BEGIN faktor := faktor +1; tal := tal DIV divisor; END; WRITELN(gltal, ' indeholder faktoren ', divisor, ' ', faktor, ' gange'); END. «eof»