witam. mam prośbę do was. czy mógłby ktoś napisać lub pomoc mi napisać totolotka w turbo pascalu? sam próbowałem lecz co jakiś czas liczby sie powtarzają i tu tkwi mój problem. nie piszcze żebym poszukał w necie bo sprawdzałem i nic mi to nie pomogło. z góry dziękuję!
n:=0;
while n<6 do begin
t[n+1]=random(49)+1;
i:=1;
while t[i]<>t[n+1] do inc(i);
if i>n then inc(n)
end;
//t[1..6]