projects
/
pdp8.git
/ blame_incremental
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
blame
(non-incremental) |
history
|
HEAD
Add README.md
[pdp8.git]
/
PRIMF.PS
This page requires JavaScript to run. Use
this page
instead.
... / ...
Commit
Line
Data
1
PROGRAM PRIM(INPUT,OUTPUT);
2
VAR N,P: INTEGER;
3
BEGIN
4
READ(N);
5
WRITE(N," =");
6
P:=2;
7
WHILE P*P<N DO
8
BEGIN
9
WHILE N MOD P<>0 DO
10
P:=P+1;
11
REPEAT N:=N DIV P;
12
WRITE(P:3);
13
IF N>1
14
THEN WRITE(" *")
15
UNTIL N MOD P<>0
16
END;
17
IF N>1
18
THEN WRITE(N:3)
19
END.