Statička verzija foruma, za uspomenu i dugo sećanje.

Vesti:

Obavezno procitajte pravilnik foruma


Skorašnje poruke

Stranice 1 ... 4 5 6 7 8 ... 10
51
Škola / Odg: Pismeni, informatika
Poslednja poruka Carce - Decembar 20, 2012, 10:14:10 pre podne
Popusite mi ga!!! JEL SAM REKAO DA RADIM 1.?????
52
Škola / Odg: Pismeni, informatika
Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 10:14:03 pre podne
Cedomire... Cedomire Cedo Che. You'd really love to see the world burn, wouldm't you?
53
Škola / Odg: Pismeni, informatika
Poslednja poruka the Pera - Decembar 20, 2012, 10:13:35 pre podne
2 zadatak mentolu jedan,ne prvi JAOOO
54
Škola / 1. zadatak
Poslednja poruka Carce - Decembar 20, 2012, 10:12:56 pre podne
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.
55
Škola / Odg: Pismeni, informatika
Poslednja poruka the Pera - Decembar 20, 2012, 10:09:18 pre podne
CEDO!!!!!!!!!
56
Škola / Odg: Pismeni, informatika
Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 10:07:44 pre podne
COME ON GUYS.
57
Škola / Odg: Pismeni, informatika
Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 10:07:20 pre podne
Bloooooody heeeeeelllll.
58
Škola / Odg: Pismeni, informatika
Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 10:05:23 pre podne
SSSSSHHHHHHIIIIIII-
59
Škola / Odg: Pismeni, informatika
Poslednja poruka Microsoft - Decembar 20, 2012, 10:03:21 pre podne
Ceda je fapovao na steker, tako da nije tu.
Ne mogu da stignem da vam otkucam na telefonu.
60
Škola / Odg: Pismeni, informatika
Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 10:00:45 pre podne
Time ticks, ticks away.
Stranice 1 ... 4 5 6 7 8 ... 10