|
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: »DEMOLEN.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler) └─ ⟦this⟧ »DEMOLEN.PAS«
PROGRAM demolen; TYPE strengtype = STRING(.15.); VAR streng : strengtype; i : INTEGER; BEGIN streng := ''; FOR i := 1 TO 5 DO BEGIN WRITELN(streng:12, LEN(streng):3); streng := streng +'A'; END; WRITELN(streng:12, LEN(streng):3); streng := streng + streng ; WRITELN(streng:12, LEN(streng):3); END. «eof»