227
Az ötöslottó nyerőszámainak kitalálása!
-
n3whous3 #26 egyébként is mi a faszom ez, turbo pascal? :-| -
#25
(ha valaki nyer ezzel, akkor kérek szépen 10%-ot) -
n3whous3 #24 [fejsimi] -
n3whous3 #23 ok ügyes vagy, elég is lesz -
#22
na, bénáztam egy kicsit a dologgal, de így végre működik:
program lottoszamok;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,c,d,e: byte;
begin
// Insert user code here
randomize;
a:=random(90)+1;
b:=a;
while b in [a] do
b:=random(90)+1;
c:=b;
while c in [a,b] do
c:=random(90)+1;
d:=c;
while d in [a,b,c] do
d:=random(90)+1;
e:=d;
while e in [a,b,c,d] do
e:=random(90)+1;
write(a,' ',b,' ',c,' ',d,' ',e);
readln;
end. -
#21
45672
csipkebokor vessző:| -
#20
ajj, b még mindig 0... pill, gondolkodok -
#19
Jó, akkor ha ez működik, te megnyerted már a lottót?xD -
#18
na, még mindig nemjó, a begin után jó ha odaírjuk, hogy
a:=0; b:=0; c:=0; d:=0; e:=0;
továbbá a végére egy
readln;
az end eléhogy lássuk is az eredményt -
loghboy #17 valahogy megkéne álmodni...az lenne a legsportszerűbb..... -
skristof #16 
-
#15
amúgy -
#14
4 8 15 16 23 42 -
#13
ez mi??? -
loghboy #12 pedig már kezdtem kitölteni a szelvényemet....:) -
#11
ott is a a hiba
elején:
while b=a do -
#10
57 -
loghboy #9 1/44 millió esélyünk van az 5ösre....az ténylegesen nem sok....:( -
#8
(ha vmi nemstimmel, akkor javítsatok) -
#7
var a,b,c,d,e: byte;
begin
randomize;
a:=random(90)+1;
while b<>a do
b:=random(90)+1;
while c in [a,b] do
c:=random(90)+1;
while d in [a,b,c] do
d:=random(90)+1;
while e in [a,b,c,d] do
e:=random(90)+1;
write(a,' ',b,' ',c,' ',d,' ',e);
end.
kb -
loghboy #6 dobjál már rolla egy linket Xd -
#5
én már tudom, hogy hogyan kell kitalálni, fel is teszem a netre a módszert, hogy legyen többszázezer darab telitalálat 
-
#4
egyszer megjátszottam...nem nyertem vele semmit
következő héten lett volna vele egy 2-esem(húzták a 2,4-et) -
loghboy #3 igazából úgy tudom ugyan annyi annak az esélye hogy azt huzzák ki, mint bármely másik 5 számnak:) De szerintem ezzel a kombinációval sokan próbálkoznak.... -
#2
1,2,3,4,5
thxbye
tényleg meg kéne játszani :D -
loghboy #1 van tippetek hogy kéne? :)