identificationdivision. program-id. ep171. * aus Ebbinghaus/Flum/Thomas * Math. Logik p. 171 author. Jens. date-written. 6.2.2011. date-compiled. datadivision. linkagesection.
77 r0 pic 9(4). proceduredivisionreturning r0. if r0 = 0 thengoto l6. subtract 1 from r0. if r0 = 0 thengoto l5. subtract 1 from r0. if r0 = 0 thengoto l6.
l5. add 1 to r0.
l6. display"fertig" end-program ep171.
¤ Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.0.13Bemerkung:
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.