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]
/
AEGYPT.PS
This page requires JavaScript to run. Use
this page
instead.
... / ...
Commit
Line
Data
1
PROGRAM AEGYPT(INPUT,OUTPUT);
2
VAR A,B,X,Y,P: INTEGER;
3
BEGIN
4
READ(A,B);
5
X := A; Y := B; P := 0;
6
REPEAT
7
IF ODD(X) THEN P := P + Y;
8
X := X DIV 2;
9
Y := 2*Y
10
UNTIL X=0;
11
WRITELN(A, " *", B, " =", P)
12
END.