McNuggets problem: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Cowgol) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 573: | Line 573: | ||
43 |
43 |
||
</pre> |
</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}}== |
=={{header|FreeBASIC}}== |