15 lines
261 B
Text
15 lines
261 B
Text
BEGIN
|
|
|
|
PROCEDURE OUTINTBIN(N); INTEGER N;
|
|
BEGIN
|
|
IF N > 1 THEN OUTINTBIN(N//2);
|
|
OUTINT(MOD(N,2),1);
|
|
END OUTINTBIN;
|
|
|
|
INTEGER SAMPLE;
|
|
FOR SAMPLE := 5, 50, 9000 DO BEGIN
|
|
OUTINTBIN(SAMPLE);
|
|
OUTIMAGE;
|
|
END;
|
|
|
|
END
|