Count the coins: Difference between revisions

=={{header|MAD}}==

<syntaxhighlight lang="mad"> NORMAL MODE IS INTEGER

DIMENSION TAB(101)

THROUGH ZERO, FOR N = 1, 1, N.G.100

ZERO TAB(N) = 0

TAB(0) = 1

THROUGH STEP, FOR VALUES OF COIN = 1, 5, 10, 25

THROUGH STEP, FOR N = COIN, 1, N.G.100

STEP TAB(N) = TAB(N) + TAB(N - COIN)

VECTOR VALUES FMT = $I3*$

PRINT FORMAT FMT, TAB(100)

END OF PROGRAM</syntaxhighlight>

{{out}}

<pre>242</pre>