Largest five adjacent number: Difference between revisions
Content added Content deleted
m (→{{header|Pascal}}: more comment) |
|||
| Line 70: | Line 70: | ||
=={{header|Pascal}}== |
=={{header|Pascal}}== |
||
{{works with|Free Pascal}} inspired by [[Largest_five_adjacent_number#Wren|Wren]] |
{{works with|Free Pascal}} inspired by [[Largest_five_adjacent_number#Wren|Wren]]<BR>Assumes that there at least is a "1" 4 digits before end of all digits.Else I have to include sysutils and s := Format('%.5d',[i]); for leading zeros. |
||
<lang pascal> |
<lang pascal> |
||
var |
var |
||
| Line 91: | Line 91: | ||
{{out}} |
{{out}} |
||
<pre>99889 found as largest 5 digit number </pre> |
<pre>99889 found as largest 5 digit number </pre> |
||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
<lang perl>#!/usr/bin/perl |
<lang perl>#!/usr/bin/perl |
||