Anonymous user
Pandigital prime: Difference between revisions
→{{header|Delphi|Delphi}}
(Add Delphi lang) |
|||
Line 180:
=={{header|Delphi|Delphi}}==
<lang
uses System.SysUtils, System.Classes, System.Math;
label nxt;
Line 187:
begin
var s := x.ToString;
for var ch := sp to '7' do if not s.
if x mod 3 = 0 then goto nxt;
var i := 1;
Line 196:
Writeln(Format('%s..7: %d', [sp, x])); Break; nxt:;
end;
end.
</lang>
| |||