Pismeni, informatika

[the Pera]

while not mentolu... a ti cedo napisi 2. sto je kosta stavio

[Quickfap the Jebivetar]

Ajd ako tebi radi postavi onda

[Microsoft]

Kopiraj sad, ispravio sam i to i jos neke greske.

[Quickfap the Jebivetar]

Sada ucita 2 integera ali posle toga ne radi nista.

[Microsoft]

while not mentolu... a ti cedo napisi 2. sto je kosta stavio

Oces ban pa da dobijes keca?

[Quickfap the Jebivetar]

Nvm, uneo sam pogresnim redosledom, radi savrseno. A sad drugi pls.

[the Pera]

Ne valja ni prvi..ispravi ga Majkro.Mentolu sam rekao Kosti btw.

[the Pera]

Works like a charm now.Thanks.Cedo daj 2 ASAP ! :(

[Quickfap the Jebivetar]

Time ticks, ticks away.

[Microsoft]

Ceda je fapovao na steker, tako da nije tu.
Ne mogu da stignem da vam otkucam na telefonu.

[Quickfap the Jebivetar]

SSSSSHHHHHHIIIIIII-

[Quickfap the Jebivetar]

Bloooooody heeeeeelllll.

[Quickfap the Jebivetar]

COME ON GUYS.

[the Pera]

CEDO!!!!!!!!!

[Carce]

program zadatak1;
type
   TypeByteSet= set of byte;
var
   n,x:byte;
   k,i:integer;
   byteSet:TypeByteSet;
procedure generisi (n:byte; var byteSet:TypeByteSet; var x:byte);
var
   t,nt:byte;
   jeJedini:boolean;
begin
      nt:=n;
      x:=random(n);
      jeJedini:=true;
      for t in byteSet do begin
         if t=x then jeJedini:=false;
      end;
      include(byteSet,x);
      if jeJedini=true then begin
         writeln(x)
      end else begin
         generisi(nt, byteSet, x);
      end;
end;
begin
   Randomize;
   write('Unesite N: ');
   Readln(n);
   write('Unesite K:');
   Readln(k);

   for i:=1 to k do generisi(n, byteSet, x);
   Readln();
end.