Strict Standards: Declaration of action_plugin_importoldchangelog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldchangelog/action.php on line 8

Strict Standards: Declaration of action_plugin_importoldindex::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldindex/action.php on line 0

Deprecated: Function split() is deprecated in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 154

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 453

Strict Standards: Only variables should be passed by reference in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/doku.php on line 71
<code pascal>

procedure kombinace(zCeho: string; kolik: integer; prefix: string);
var
  bezPrvniho: string;
begin
  if kolik = 0 then begin
    writeln(prefix);
  end else if (length(zCeho) = kolik) then begin
    writeln(prefix, zCeho);
  end else begin
    bezPrvniho := zCeho;
    delete(bezPrvniho, 1, 1);
    kombinace(bezPrvniho, kolik - 1, concat(prefix, zCeho[1]));
    kombinace(bezPrvniho, kolik, prefix);
  end;
end;

var
  zCeho: string;
  kolik: integer;
begin
  readln(zCeho);
  readln(kolik);
  kombinace(zCeho, kolik, '');
end.


</code>