Factors of an integer: Difference between revisions
m
→{{header|ALGOL-M}}
ReeceGoding (talk | contribs) m (→{{header|R}}: Syntax highlighting.) |
|||
Line 532:
BEGIN
INTEGER I, N, LIMIT, FOUND, START, DELTA;▼
▲COMMENT COMPUTE P MOD Q;
INTEGER FUNCTION MOD (P, Q);
INTEGER P, Q;
Line 544 ⟶ 539:
END;
▲INTEGER I, N, LIMIT, FOUND, START, DELTA;
WHILE
BEGIN
WRITE ("
READ (N);
IF N = 0 THEN GOTO DONE;
WRITE ("
COMMENT CHECK WHETHER NUMBER IS EVEN OR ODD;
Line 567 ⟶ 563:
FOUND := 0;
I := START;
LIMIT := N /
WHILE I <= LIMIT DO
BEGIN
IF MOD(N, I) = 0 THEN
BEGIN
FOUND := FOUND + 1;
END;
Line 578 ⟶ 574:
IF FOUND = 0 THEN LIMIT := N / I;
END;
IF FOUND = 0 THEN WRITEON (" NONE - THE NUMBER IS PRIME.");
END;
DONE: WRITE ("
END</lang>
{{out}}
<pre>NUMBER TO FACTOR (OR 0 TO QUIT):
-> 96
THE FACTORS ARE: 2 3 4 6 8 12 16 24 32 48
NUMBER TO FACTOR (OR 0 TO QUIT):
-> 97
THE FACTORS ARE: NONE - THE NUMBER IS PRIME.
NUMBER TO FACTOR (OR 0 TO QUIT):
-> 98
THE FACTORS ARE: 2 7 14 49
NUMBER TO FACTOR (OR 0 TO QUIT):
-> 0
GOODBYE</pre>
=={{header|APL}}==
| |||