Pismeni, informatika

[Microsoft]

Sumnjam da ce ova tema biti potrebna, ali na Cedin zahtev, evo otvaram.

[the Pera]

Stavite sto vise mozete ovde,moram da uradim nesto da mi ne zakljuci keca.

[Carce]

Dajte zadatke ja sam bolestan

Probacu odavde da uradim... ali bez kompajlera tao da vi ispravljajte

I jel su Olga, Bujak i Duki na kompovima?

[Quickfap the Jebivetar]

Ignorisite Pericu, postavite sve zadatke.

[Microsoft]

Optimisti.
Radi se na papiru.

[Microsoft]

Srecno, ja odoh :)

[Quickfap the Jebivetar]

Biramo hocemo li raditi na papiru ili ne. Che, Deus ne radi pa ces morati ti da saljes resenja. If you can ofc.

[Carce]

Sta bi sa deusom?

[Quickfap the Jebivetar]

Deusa pusta da ide valjda nzm.

[Quickfap the Jebivetar]

1. Napisati program kojim se ispisuju po randomu k brojeva od 1 do n, bez ponavljanja

[the Pera]

Napisati program kojim se ispisuje niz razlicitih slucajnih brojeva iz intervala[1,N],N<=255

[Quickfap the Jebivetar]

2.  Dat je niz slogova o ucenicima koji pohadjaju 1 od 5 kurseva. Struktura: Prezime:string; pol:(m,z); kurs:1..5. Naci kurs na kojem je bilo najvise muskaraca.

[Carce]

radim 1.

[Microsoft]

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.

[Quickfap the Jebivetar]

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