McNuggets problem: Difference between revisions
Add FOCAL
Not a robot (talk | contribs) (Add Cowgol) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 573:
43
</pre>
=={{header|FOCAL}}==
<lang focal>01.10 F N=0,100;S T(N)=0
01.20 F A=0,6,100;F B=A,9,100;F C=B,20,100;S T(C)=-1
01.30 S N=101
01.40 S N=N-1
01.50 I (T(N))1.4
01.60 T %3,N,!
01.70 Q</lang>
{{out}}
<pre>= 43</pre>
=={{header|FreeBASIC}}==
| |||