分享给朋友：通用代码: <input id="link4" type="text" class="form_input form_input_s" value="" />复 制flash地址: 复 制html代码: <input type="text" class="form_input form_input_s" id="link3" value="" />复 制分享视频到站外获取收益&&手机扫码分享视频二维码2小时内有效k i t t y
R o r s cha c h下载至电脑扫码用手机看用或微信扫码在手机上继续观看二维码2小时内有效k i t t y
R o r s cha c h扫码用手机继续看用或微信扫码在手机上继续观看二维码2小时内有效，扫码后可分享给好友没有优酷APP？立即下载请根据您的设备选择下载版本
药品服务许可证(京)-经营- 节目制作经营许可证京字670号 请使用者仔细阅读优酷、、Copyright(C)2017 优酷
版权所有不良信息举报电话:< - 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&}