Anonymous user
Largest five adjacent number: Difference between revisions
added pascal
Thundergnat (talk | contribs) m (→{{header|Raku}}: Show minimum too, toss some Unicode in there for amusements sake, Do it 5 times for variety) |
(added pascal) |
||
Line 103:
99638
</pre>
=={{header|Pascal}}==
{{works with|Free Pascal}} inspired by [[Largest_five_adjacent_number#Wren|Wren]]
<lang pascal>
var
digits,
s : AnsiString;
i : LongInt;
begin
randomize;
setlength(digits,1000);
for i := 1 to 1000 do
digits[i] := chr(random(10)+ord('0'));
for i := 99999 downto 0 do
begin
str(i:5,s);
if Pos(s,digits) > 0 then
break;
end;
writeln(s, ' found as largest 5 digit number ')
end.</lang>
{{out}}
<pre>99889 found as largest 5 digit number </pre>
=={{header|Wren}}==
{{libheader|Wren-fmt}}
| |||