Moderator: Praesidium
Code: Select all
PROCEDURE oef16*;
TYPE
Tabel = ARRAY 100 OF INTEGER;
VAR
getal, index, index2 : INTEGER;
rij : Tabel;
BEGIN
OutExt.Open();
OutExt.Clear();
In.Open();
In.Int(getal);
index:= -1;
REPEAT
INC(index);
rij[index] := getal MOD 2;
getal := getal DIV 2;
UNTIL (getal = 0);
FOR index2 := 7 TO 0 BY -1 DO <-----------
OutExt.Int(rij[index2], 0);
END;
OutExt.Ln();
END oef16;
Users browsing this forum: No registered users and 45 guests