12 lines
366 B
Text
12 lines
366 B
Text
FOR n FROM -99 TO 100 DO
|
|
INT l := 0, f := 3, z := ABS n;
|
|
WHILE z >= 2 DO
|
|
WHILE z MOD 2 = 0 DO l +:= n OVER 2; z OVERAB 2 OD;
|
|
IF f <= z THEN
|
|
WHILE z MOD f = 0 DO l +:= n OVER f; z OVERAB f OD;
|
|
f +:= 2
|
|
FI
|
|
OD;
|
|
print( ( whole( l, -8 ) ) );
|
|
IF ( n + 100 ) MOD 10 = 0 THEN print( ( newline ) ) FI
|
|
OD
|