< - tcTbpp - Online Pascal Compiler & Debugging Tool
requires JavaScript to work.
esc to close
Sv:String='qwertyuiopasdfghjklzxcvbnm';{} N:integer=10;{где N-максимальная дляна пароля}var iMax,cN,i,j:integer; cSa: array&#91;1..100&#93; of integer;{масив индексов}begin iMax:=Length&#40;Sv&#41;; cN:=1; cSa&#91;1&#93;:=1; while true do Begin
for j:=1 to cN do
Write&#40;Sv&#91;cSa&#91;j&#93;&#93;&#41;;
inc&#40;cSa&#91;1&#93;&#41;;
for j:=1 to cN-1 do
if cSa&#91;j&#93;&iMax then
cSa&#91;j&#93;:=1;
inc&#40;cSa&#91;j+1&#93;&#41;;
if cSa&#91;cN&#93;&iMax then
if cN&=N then exit;
inc&#40;cN&#41;;
for j:=1 to cN Do
cSa&#91;j&#93;:=1;
End; End;End.
Y29uc3QKICAgIFN2OlN0cmluZz0nMDEyMzQ1Njc4OXF3ZXJ0eXVpb3Bhc2RmZ2hqa2x6eGN2Ym5tJzt7fQoJTjppbnRlZ2VyPTEwO3vQs9C00LUgTi3QvNCw0LrRgdC40LzQsNC70YzQvdCw0Y8g0LTQu9GP0L3QsCDQv9Cw0YDQvtC70Y99CnZhcgoJaU1heCxjTixpLGo6aW50ZWdlcjsKCWNTYTogYXJyYXlbMS4uMTAwXSBvZiBpbnRlZ2VyO3vQvNCw0YHQuNCyINC40L3QtNC10LrRgdC+0LJ9CmJlZ2luCglpTWF4Oj1MZW5ndGgoU3YpOwoJY046PTE7CgljU2FbMV06PTE7Cgl3aGlsZSB0cnVlIGRvCglCZWdpbgoJCWZvciBqOj0xIHRvIGNOIGRvIAoJCQlXcml0ZShTdltjU2Fbal1dKTsgCgkJV3JpdGVsbjsKCQlpbmMoY1NhWzFdKTsgIAoJCWZvciBqOj0xIHRvIGNOLTEgZG8gCgkJCWlmIGNTYVtqXT5pTWF4IHRoZW4gCgkJCUJlZ2luCgkJCQljU2Fbal06PTE7CQkKCQkJCWluYyhjU2FbaisxXSk7CgkJCUVuZDsJCgkJaWYgY1NhW2NOXT5pTWF4IHRoZW4KCQlCZWdpbgoJCQlpZiBjTj49TiB0aGVuIGV4aXQ7CgkJCWluYyhjTik7CgkJIAlmb3Igajo9MSB0byBjTiBEbwkKCQkgCQljU2Fbal06PTE7CQoJCSBFbmQ7CglFbmQ7CkVuZC4=
0.18s 4068KB
Standard input is empty
visibility:
Share or Embed source code
&script src=&/e.js/tcTbpp& type=&text/javascript& &&/script&}