Ethiopian multiplication: Difference between revisions
m
→{{header|ALGOL-M}}
No edit summary |
|||
Line 288:
INTEGER I;
BEGIN
DOUBLE := I
END;
Line 306:
WHILE I >= 1 DO
BEGIN
IF EVEN(I) =
BEGIN
IF SHOW = YES THEN WRITE(I," ----", J);
Line 336:
1 544
= 578
</pre>
=={{header|ALGOL W}}==
|