Tau number: Difference between revisions
Content added Content deleted
Deadmarshal (talk | contribs) (Added Oberon-2) |
Deadmarshal (talk | contribs) |
||
Line 1,766: | Line 1,766: | ||
j := i; |
j := i; |
||
WHILE j <= LEN(divcount)-1 DO (* j is divisible by i *) |
WHILE j <= LEN(divcount)-1 DO (* j is divisible by i *) |
||
INC(divcount[j]); |
|||
INC(j,i) (* next multiple of i *) |
|||
END |
END |
||
END; |
END; |