Skorašnje poruke

61

Škola / Odg: Pismeni, informatika

Poslednja poruka the Pera - Decembar 20, 2012, 09:59:49 pre podne

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

62

Škola / Odg: Pismeni, informatika

Poslednja poruka the Pera - Decembar 20, 2012, 09:55:31 pre podne

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

63

Škola / Odg: Pismeni, informatika

Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 09:55:05 pre podne

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

64

Škola / Odg: Pismeni, informatika

Poslednja poruka Microsoft - Decembar 20, 2012, 09:53:31 pre podne

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

Oces ban pa da dobijes keca?

65

Škola / Odg: Pismeni, informatika

Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 09:52:45 pre podne

Sada ucita 2 integera ali posle toga ne radi nista.

66

Škola / Odg: Pismeni, informatika

Poslednja poruka Microsoft - Decembar 20, 2012, 09:50:32 pre podne

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

67

Škola / Odg: Pismeni, informatika

Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 09:47:47 pre podne

Ajd ako tebi radi postavi onda

68

Škola / Odg: Pismeni, informatika

Poslednja poruka the Pera - Decembar 20, 2012, 09:45:01 pre podne

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

69

Škola / Odg: Pismeni, informatika

Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 09:44:07 pre podne

Ne radi, javlja gresku kod skup = set of [1..99]

70

Škola / Odg: Pismeni, informatika

Poslednja poruka Microsoft - Decembar 20, 2012, 09:37:18 pre podne

1.

Kod Izaberi Expand


program prvi;
type skup = set of 1..99;
var s:skup;
n, k, i, r:integer;
begin
readln(n,k);
i:=1;
Randomize();
while i<=n do
begin
r:=Random(k);
while r in s do r:=Random(k);
s:=s+[r];
i:=i+1;
end;
i:=1;
while i<=k do
begin
if i in s writeln(i);
i:=i + 1;
end;
readln;
end.

Trebalo bi da radi, nisam kompajlirao, kucam na telefonu.