|
identification division.
program-id. diverse.
* Autor JD
* Dies ist eine Schleife mit Auswahl
* gesucht sind xn2, xn3, xn5
author. "JD".
date-written. 27.12.2006.
date-compiled.
data division.
working-storage section.
77 xn2 pic 9(4)V9(8).
77 xn3 pic 9(4)V9(8).
77 xn5 pic 9(4)V9(8).
77 xn pic 9(4)V9(8).
procedure division.
display "start"
accept xn
perform with test after
until xn<=0 or xn>=10000
evaluate true
when function mod(xn,2)=0
add 1 to xn2
when function mod(xn,3)=0
add 1 to xn3
when function mod(xn,5)=0
add 1 to xn5
end-evaluate
add 1 to xn
end-perform.
display "xn="xn.
display "xn2="xn2.
display "xn3="xn3.
display "xn5="xn5.
display "done".
end-program diverse.
¤ Dauer der Verarbeitung: 0.31 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.
|
