Sum of the digits of n is substring of n: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Draco) |
Not a robot (talk | contribs) (Add Comal) |
||
Line 704: | Line 704: | ||
918 |
918 |
||
919</pre> |
919</pre> |
||
=={{header|Comal}}== |
|||
<lang comal>0010 FUNC digit'sum#(n#) CLOSED |
|||
0020 sum#:=0 |
|||
0030 WHILE n# DO sum#:+n# MOD 10;n#:=n# DIV 10 |
|||
0040 RETURN sum# |
|||
0050 ENDFUNC digit'sum# |
|||
0060 // |
|||
0070 col#:=0 |
|||
0080 ZONE 4 |
|||
0090 FOR i#:=0 TO 999 DO |
|||
0100 IF STR$(digit'sum#(i#)) IN STR$(i#) THEN |
|||
0110 PRINT i#, |
|||
0120 col#:+1 |
|||
0130 IF col# MOD 15=0 THEN PRINT |
|||
0140 ENDIF |
|||
0150 ENDFOR i# |
|||
0160 PRINT |
|||
0170 END</lang> |
|||
{{out}} |
|||
<pre>0 1 2 3 4 5 6 7 8 9 10 20 30 40 50 |
|||
60 70 80 90 100 109 119 129 139 149 159 169 179 189 199 |
|||
200 300 400 500 600 700 800 900 910 911 912 913 914 915 916 |
|||
917 918 919</pre> |
|||
=={{header|Cowgol}}== |
=={{header|Cowgol}}== |