/// GG# 1 110 10 10 11 100 10 \\\

1. jakbym wiedzial jak , MARtiuS 22/01/08 12:40
   to bym nie pytal :)

   feci, quod potui, faciant meliora
   potentes
   GG 617689

   1. jeśli to ma byś jednorazowo to może to wyglądać tak: , Chrisu 22/01/08 13:13
      (pisane na szybko bez przemyślenia, ale działa ;) )
      
      program haselka;
      var
      i,n:integer;
      haslo:string;
      a:byte;
      begin
      randomize;
      writeln('podaj dˆlugo˜sc haslˆa');
      readln(n);
      for i:=1 to n do
      begin
      if i in [1..2] then
      begin
      a:=48+random(10);
      haslo[i]:=chr(a);
      end;
      if i in [3..4] then
      begin
      a:=65+random(25);
      haslo[i]:=chr(a);
      end;
      if i in [5..6] then
      begin
      a:=97+random(25);
      haslo[i]:=chr(a);
      end;
      if i in [7..8] then
      begin
      a:=48+random(10);
      haslo[i]:=chr(a);
      end;
      if i in [9..n] then
      begin
      a:=48+random(10);
      haslo[i]:=chr(a);
      end;
      end;
      for i:=1 to n do
      write(haslo[i]);
      end.
      
      
      Powyżej 8 znaku losuje tylko cyfry.

      /// GG# 1 110 10 10 11 100 10 \\\