identification division.
program-id. ep171.
* aus Ebbinghaus/Flum/Thomas
* Math. Logik p. 171
author. Jens.
date-written. 6.2.2011.
date-compiled.
data division.
linkage section.
77 r0 pic 9(4).
procedure division returning r0.
if r0 = 0 then goto l6.
subtract 1 from r0.
if r0 = 0 then goto l5.
subtract 1 from r0.
if r0 = 0 then goto l6.
l5.
add 1 to r0.
l6.
display "fertig"
end-program ep171.
¤ Dauer der Verarbeitung: 0.17 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
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.
|