Prgm
Local produkt, n, i
ClrIO
Request "natürliche Zahl: ", n
expr(n) ® n
1 ® produkt
For i, 1, n
produkt * i ® produkt
EndFor
Disp "Produkt von 1 bis "&string(n)&": " &string(produkt)
EndPrgm
| Programmcode | Bildschirmausgabe |
| mult()
Prgm Local produkt, n, i ClrIO Request "natürliche Zahl: ", n expr(n) ® n 1 ® produkt For i, 1, n produkt * i ® produkt EndFor Disp "Produkt von 1 bis "&string(n)&": " &string(produkt) EndPrgm |
|