Anonymous user
Largest five adjacent number: Difference between revisions
m
→{{header|Pascal}}: more comment
m (→{{header|Pascal}}: more comment) |
|||
Line 70:
=={{header|Pascal}}==
{{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>
var
Line 91:
{{out}}
<pre>99889 found as largest 5 digit number </pre>
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
|