Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 176 177 178 ... 554 555 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | moje ... oprogramowanie |
2018-01-09 (16:12)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 137 737 [ CZCIONKA MONOSPACE ] OK, z góry dziękuję ![]() |
2018-01-09 (16:14)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 137 738 [ CZCIONKA MONOSPACE ] Już mam Nie wiem co Ci spasuje to rozwiazania z arkusza dostępnego w sieci Algorytmy Sortujące w VBA.xls <<<<<<< nazwa pliku https://pl.scribd.com/document/62894106/Algorytmy-sortuj%C4%85ce-Artyku%C5%82 ale nie pliki chyba na excel forum nie mogę Ci tego pliku podesłać ,bo ten co mam jest pozmieniany ale może znajdziesz to szybciej..... Sub SortowaniePrzezWybieranie(tabl, ile As Long) Dim i As Long Dim j As Long Dim Amin Dim Imin As Long For i = 1 To ile - 1 Amin = tabl(i, 1) Imin = i For j = i + 1 To ile If tabl(j, 1) < Amin Then Amin = tabl(j, 1) Imin = j End If Next tabl(Imin, 1) = tabl(i, 1) tabl(i, 1) = Amin Next End Sub Sub SortowaniePrzezWstawianie(tabl, ile As Long) Dim i As Long Dim j As Long Dim Ai For i = 1 To ile Ai = tabl(i, 1) tabl(i, 1) = Ai j = i - 1 While tabl(j + 1, 1) > Ai tabl(j + 1, 1) = tabl(j, 1) j = j - 1 Wend tabl(j + 1, 1) = Ai Next End Sub Sub SortowanieBabelkowe(tabl, ile As Long) Dim i As Long Dim j As Long Dim Temp For i = 2 To ile For j = ile To 2 Step -1 If tabl(j - 1, 1) > tabl(j, 1) Then Temp = tabl(j - 1, 1) tabl(j - 1, 1) = tabl(j, 1) tabl(j, 1) = Temp End If Next Next End Sub Sub SortowanieSzybkie(tabl, lewy, prawy) Dim l As Long Dim p As Long Dim med Dim Temp If lewy < prawy Then l = lewy p = prawy med = tabl(l, 1) Do While tabl(l, 1) < med l = l + 1 Wend While tabl(p, 1) > med p = p - 1 Wend If l <= p Then Temp = tabl(l, 1) tabl(l, 1) = tabl(p, 1) tabl(p, 1) = Temp l = l + 1 p = p - 1 End If Loop Until l >= p Call SortowanieSzybkie(tabl, lewy, p) Call SortowanieSzybkie(tabl, l, prawy) End If End Sub Sub SortowanieArkuszowe(tabl, ile) Dim Ark As Worksheet Dim zakres As Range Dim i As Long Dim TblTmp As Variant Application.ScreenUpdating = False Set Ark = ThisWorkbook.Worksheets.Add Set zakres = Ark.Range("A1:A" & ile) zakres = tabl zakres.Sort Key1:=zakres(1), _ Order1:=xlAscending, _ Orientation:=xlTopToBottom, _ Header:=xlNo TblTmp = zakres tabl = TblTmp With Application .DisplayAlerts = False Ark.Delete .DisplayAlerts = True .ScreenUpdating = True End With Set zakres = Nothing Set Ark = Nothing End Sub Sub SortowaniePrzezZliczanie(list) Dim counts() Dim i As Long, j As Long Dim next_index As Long Dim min, max Dim min_value As Variant, max_value As Variant min_value = Minimum(list) max_value = Maximum(list) min = LBound(list) max = UBound(list) ReDim counts(min_value To max_value) For i = min To max counts(list(i, 1)) = counts(list(i, 1)) + 1 Next i next_index = min For i = min_value To max_value For j = 1 To counts(i) list(next_index, 1) = i next_index = next_index + 1 Next j Next i End Sub Private Function Maximum(l) Dim s1, s2, i s1 = LBound(l) s2 = UBound(l) Maximum = l(s1, 1) For i = s1 To s2 If l(i, 1) > Maximum Then Maximum = l(i, 1) Next i End Function Private Function Minimum(l) Dim s1, s2, i s1 = LBound(l) s2 = UBound(l) Minimum = l(s1, 1) For i = s1 To s2 If l(i, 1) < Minimum Then Minimum = l(i, 1) Next i End Function --- wpis edytowano 2018-01-09 16:24 --- |
2018-01-09 (16:42)![]() Data rejestracji: 2007-04-03 Ilość postów: 41774 ![]() | wpis nr 1 137 742 [ CZCIONKA MONOSPACE ] Jeden z najbardziej znanych speców od systemów Włoch Giovanni Acerbi (często zamieszczający wpisy pod nickiem Krypta) który jest m.in. autorem rekordowego rozpisu C(20,10,7,10)=30 który zbudował na bazie 2 podsystemów po 15 zakładów: 30 colonne copertura 100% (speculare 2x 15 colonne) .......... By KRYPTA................... 01 02 04 05 06 08 09 16 17 18 01 02 04 05 06 11 12 14 18 19 01 02 04 05 07 08 12 13 17 19 01 02 04 05 07 09 11 13 14 16 01 02 06 07 08 10 11 13 15 18 01 02 06 09 10 12 13 15 16 19 01 02 07 09 10 14 15 17 18 19 01 02 08 10 11 12 14 15 16 17 01 03 04 05 06 10 13 14 17 20 01 03 04 05 07 10 12 16 18 20 01 03 04 05 08 09 10 11 19 20 01 03 06 07 08 14 15 16 19 20 01 03 06 07 09 11 12 15 17 20 01 03 08 09 12 13 14 15 18 20 01 03 11 13 15 16 17 18 19 20 ======================== 02 04 05 06 07 08 09 10 12 14 02 04 05 06 07 10 11 16 17 19 02 04 05 08 10 13 14 16 18 19 02 04 05 09 10 11 12 13 17 18 02 06 07 12 13 14 15 16 17 18 02 06 08 09 11 13 14 15 17 19 02 07 08 09 11 12 15 16 18 19 03 04 05 06 07 09 13 18 19 20 03 04 05 06 08 11 12 13 16 20 03 04 05 07 08 11 14 17 18 20 03 04 05 09 12 14 16 17 19 20 03 06 08 10 12 15 17 18 19 20 03 06 09 10 11 14 15 16 18 20 03 07 08 09 10 13 15 16 17 20 03 07 10 11 12 13 14 15 19 20 ............................. dziś zamieścił optymalizację tego swojego rekordowego rozpisu C(20,10,7,10)=30 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 11 12 14 19 01 02 04 05 07 08 12 13 17 19 01 02 04 05 09 10 11 13 14 17 01 02 03 06 08 11 13 15 16 17 01 02 06 09 10 12 13 15 16 19 01 02 03 07 09 14 15 16 17 19 01 02 07 08 10 11 12 14 15 16 01 04 05 06 07 13 14 16 18 20 01 03 04 05 10 12 16 17 18 20 01 04 05 08 09 11 16 18 19 20 01 06 08 10 14 15 17 18 19 20 01 06 07 09 11 12 15 17 18 20 01 03 08 09 12 13 14 15 18 20 01 03 07 10 11 13 15 18 19 20 02 04 05 06 08 09 12 14 16 17 02 04 05 06 07 10 11 16 17 19 02 03 04 05 08 10 13 14 16 19 02 03 04 05 07 09 11 12 13 16 02 03 06 07 10 12 13 14 15 17 02 06 07 08 09 11 13 14 15 19 02 03 08 09 10 11 12 15 17 19 03 04 05 06 09 13 17 18 19 20 04 05 06 08 10 11 12 13 18 20 03 04 05 07 08 11 14 17 18 20 04 05 07 09 10 12 14 18 19 20 03 06 07 08 12 15 16 18 19 20 03 06 09 10 11 14 15 16 18 20 07 08 09 10 13 15 16 17 18 20 11 12 13 14 15 16 17 18 19 20 ................ co w odniesieniu do naszej gry MULTI MULTI podnosi teraz minimalną gwarantowaną wygraną przy trafieniu 10z20 liczb z poprzednich 296zł i zysku 221zł, do obecnych w nowej wersji 318zł a zatem dających zysk 243zł --- wpis edytowano 2018-01-09 16:45 --- |
2018-01-09 (17:14)![]() Data rejestracji: 2007-04-03 Ilość postów: 41774 ![]() | wpis nr 1 137 746 [ CZCIONKA MONOSPACE ] fair_play>> jeżeli problem z jakim zwróciłeś się do 777ch wynika z tego, że rozpisy przekształcane w programie Inverso mają taką nieuporządkowaną postać, to mogę zwrócić się z tym do autora, czyli stef72 aby ten program nieco podrasował i dodał do niego funkcję prezentacji tych nowych rozpisów tylko jako rosnące... --- wpis edytowano 2018-01-09 17:17 --- |
2018-01-09 (17:54)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 137 757 [ CZCIONKA MONOSPACE ] 777ch> Dziękuję, ale na pierwszy rzut oka wydaje mi się, że te przykłady sortują tylko poszczególne kolumny, a nie jednocześnie cały wiersz tej tabeli wraz z tą kolumną. Wpadłem na pewien pomysł, ale podzielę się nim jak się sprawdzi ![]() Z innej beczki Dlaczego procedura: słowo1="Ala" słowo2="ma" słowo3="kota" napis=słowo1+słowo2+słowo3 Cells(x,y)=napis daje w efekcie "Alamakota", a przy słowo1=str(11) słowo2=str(22) słowo3=str(33) napis=słowo1+słowo2+słowo3 Cells(x,y)=napis daje w efekcie "11 22 33" czyli dlaczego pojawiają się spacje ? edi8> Nie nie chodzi mi o program tworzący Inverso (stworzyłem sobie do tego własny ![]() ![]() |
2018-01-09 (18:04)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 137 760 [ CZCIONKA MONOSPACE ] fair_play Jeśli do tablicy wpiszesz liczby nie jako kolejne ,lecz na pozycję np tab1(lp,liczba-1)=liczba to wypis z tablic posortowany zrobisz dopiero na końcu po wrzuceniu tego co masz w tab1 do tablicy wypisowej >tab2 po prostu redim tab2(ilezak-1,ileskr-1) i jedziesz for lp=1 do ilezak kol=0 for n=1 do ileskr if tab1(lp-1,n-1)>= 1 then kol=kol+1 tab2(lp-1,kol-1)=n end if next n next ilezak i można potem wczytać do arkusza ,a w arkuszu posortować albo uzyć sortowania po uzypełnieniu tab2 no tak na szybko,mam nadzieje że to proste.... |
2018-01-09 (18:36)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 137 770 [ CZCIONKA MONOSPACE ] http://www.mielk.pl/pl/kursy/kurs_vba/kurs_07_funkcje_wbudowane.php Sub alasuma() Dim napis2, napis3 As String Dim napis As Integer Dim słowo1, słowo2, słowo3 As Integer Dim sł11, sł22, sł33 As String słowo1 = Str(11) słowo2 = Str(22) słowo3 = Str(33) sł11 = CStr(11) 'Konwersja do typu tekstowego sł22 = CStr(22) 'Konwersja do typu tekstowego sł33 = CStr(33) 'Konwersja do typu tekstowego napis = słowo1 + słowo2 + słowo3 'suma napis2 = sł11 + sł22 + sł33 'dodanejakalamakota Konwersja do typu tekstowego Cells(2, 1) = napis Cells(3, 1) = napis2 End Sub |
2018-01-09 (19:32)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 137 784 [ CZCIONKA MONOSPACE ] Nie nie chodzi mi o program tworzący Inverso (stworzyłem sobie do tego własny ). fair_play wklej mi samą procedurę tylko zamiany informacji np: C(24,19,14,14) to możliwy C(24,5,5,10) coś takiego by mi sie przydało, bo nie chce mi się myśleć nad tym ....... |
2018-01-09 (21:03)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 137 804 [ CZCIONKA MONOSPACE ] 777ch> Proszę bardzo ![]() Sub konwertuj() Dim org, conv As Variant skr = Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(1, 20))) zak = Application.WorksheetFunction.CountA(Range("A1:A65536")) liczb = Application.WorksheetFunction.Max(Range(Cells(1, 1), Cells(zak, 20))) org = Range(Cells(1, 1), Cells(zak, skr)) ReDim conv(zak, liczb) For y = 1 To zak For x = 1 To liczb conv(y - 1, x - 1) = x Next x Next y For y = 1 To zak For x = 1 To skr conv(y - 1, org(y, x) - 1) = 999 Next x Next y For y = 0 To zak For x = 0 To liczb - 1 For xx = 0 To liczb - 1 If conv(y, x) < conv(y, xx) Then tmp = conv(y, x) conv(y, x) = conv(y, xx) conv(y, xx) = tmp End If Next xx Next x Next y Range(Cells(1, skr + 2), Cells(zak, liczb + 1)) = conv End Sub --- wpis edytowano 2018-01-09 21:03 --- |
2018-01-10 (12:00)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 137 909 [ CZCIONKA MONOSPACE ] Gratuluję fair_play Sprawdzenie wypadło pomyślnie Wszystkich 14-ek = 1961256 dla V=24 Pokrytych 14-ek = 192673 Czas obliczeń wyniósł 00:00:17,72 sec. Brak [1768583]-kombinacji z {1961256} Gwarancja 14 if t=14 : 9,82395974824296 << Min. Teor. [b] = 168 pokr. x {11628} C (24,19,14,14) = 21 ============================================== inversja by fair_play C(24,5,5,10) -- Gwarancje przy 10-trafnie wytypowanych -- Gw.[2]= 100 % Gw.[3]= 99,6653674991944 % Gw.[4]= 68,7519120400396 % Gw.[5]= 9,82395974824296 % << BRAK {6563}.. 3/5 w systemie BRAK {612855}.. 4/5 w systemie BRAK {1768583}.. 5/5 w systemie Sprawdzono zbiór = 1961256 kombinacji Time calculated : 2802,06193503686 ms oczywiście z C(24,5,5,10) zrobiłem inversję do postaci startowej C (24,19,14,14) wszystko się zgadza pozdrawiam -------------------------------------------------------- oczywiście sam zbiór sprawdzany to był twój losowy bez specjalnych gwarancji --- wpis edytowano 2018-01-10 12:02 --- |
2018-01-10 (12:23)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 137 911 [ CZCIONKA MONOSPACE ] fair_play Masz może przekształcanie samego opisu > C( v,k,t,m) czyli C(7,4,2,2) = 5 na invers C(7,3,3,5) = 5 bo o to głownie mi chodziło. |
2018-01-10 (12:44)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 137 918 [ CZCIONKA MONOSPACE ] 777ch> Cieszę się, że się przydało. Inwersja to w sumie bardzo prosta sprawa. Po prostu w pliku inwersji każdą linię oryginału uzupełniasz brakującymi liczbami z ogółu liczb w systemie. Np. jeśli liczb jest 15, a linia oryginału wyglada: 1,3,6,9,11,14 to linia inwersji powstaje tak: 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 _,2,_,4,5,_,7,8,_,10,__,12,13,__,15 2,4,5,7,8,10,12,13,15 Pozdrawiam ![]() --- wpis edytowano 2018-01-10 12:50 --- |
2018-01-10 (13:05)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 137 926 [ CZCIONKA MONOSPACE ] 777ch> nie miałem C(7,4,2,2)=5 ale z WG uzyskałem: 01 02 03 04 01 02 04 07 01 04 05 06 02 03 05 06 03 05 06 07 co po inversji daje: 05 06 07 03 05 06 02 03 07 01 04 07 01 02 04 P.S. Nie wiem jak korzystasz z mojej procedury, ale jak wczytasz oryginał do arkusza excela od komórki "A1" i uruchomisz procedurę jako makro to obok oryginału otrzymasz inwersję. --- wpis edytowano 2018-01-10 13:10 --- |
2018-01-10 (13:12)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 137 931 [ CZCIONKA MONOSPACE ] Masz może przekształcanie samego opisu > C( v,k,t,m) czyli C(7,4,2,2) = 5 na invers C(7,3,3,5) = 5 bo o to głownie mi chodziło. sam nagłówek> bez inversji coveru << fair_play inversja wpada mi do innego arkusza , ale chodzi mi o sposób inversji samego nagłówka bez inversji liczb....... --- wpis edytowano 2018-01-10 13:15 --- |
2018-01-10 (13:16)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 137 932 [ CZCIONKA MONOSPACE ] 2018-01-09 (16:42) statusedi8 wpis nr 1 137 742 co w odniesieniu do naszej gry MULTI MULTI podnosi teraz minimalną gwarantowaną wygraną przy trafieniu 10z20 liczb z poprzednich 296zł i zysku 221zł, do obecnych w nowej wersji 318zł a zatem dających zysk 243zł Sprawdzone 10-skr. liczb [20] zbiór =184756-kombinacji Minimum gwarantowane: 318-pln , 1x 7|10,11x 6|10,6x 5|10,11x 4|10,1x 3|10,..np..[8,9,10,11,12,13,14,16,19,20] Równorzędnych [7056] 318-pln {7056} ..co stanowi : 3,82 % 324-pln {3024} ..co stanowi : 1,637 % ------------------------------------------- 426-pln {28224} ..co stanowi : 15,277 % 432-pln {36624} ..co stanowi : 19,823 % ------------------------------------------- 534-pln {2352} ..co stanowi : 1,274 % 540-pln {9072} ..co stanowi : 4,911 % 582-pln {1344} ..co stanowi : 0,728 % 588-pln {112} ..co stanowi : 0,061 % 648-pln {784} ..co stanowi : 0,425 % 668-pln {4410} ..co stanowi : 2,387 % ------------------------------------------- 674-pln {8704} ..co stanowi : 4,712 % 690-pln {17920} ..co stanowi : 9,7 % 696-pln {11424} ..co stanowi : 6,184 % ------------------------------------------- 716-pln {652} ..co stanowi : 0,353 % 798-pln {1344} ..co stanowi : 0,728 % 804-pln {3696} ..co stanowi : 2,001 % 824-pln {4704} ..co stanowi : 2,547 % 830-pln {1680} ..co stanowi : 0,91 % ------------------------------------------- 932-pln {12096} ..co stanowi : 6,548 % 938-pln {12768} ..co stanowi : 6,911 % ------------------------------------------- 954-pln {672} ..co stanowi : 0,364 % 960-pln {336} ..co stanowi : 0,182 % 1040-pln {672} ..co stanowi : 0,364 % 1046-pln {1680} ..co stanowi : 0,91 % 1068-pln {336} ..co stanowi : 0,182 % 1088-pln {336} ..co stanowi : 0,182 % 1176-pln {16} ..co stanowi : 0,009 % 1196-pln {2576} ..co stanowi : 1,395 % 1202-pln {2912} ..co stanowi : 1,577 % 1304-pln {336} ..co stanowi : 0,182 % 1310-pln {672} ..co stanowi : 0,364 % 1330-pln {672} ..co stanowi : 0,364 % 1336-pln {336} ..co stanowi : 0,182 % 1438-pln {672} ..co stanowi : 0,364 % 1444-pln {1344} ..co stanowi : 0,728 % 1680-pln {56} ..co stanowi : 0,031 % 1686-pln {112} ..co stanowi : 0,061 % 10112-pln {136} ..co stanowi : 0,074 % 10154-pln {736} ..co stanowi : 0,399 % 10160-pln {672} ..co stanowi : 0,364 % 10418-pln {672} ..co stanowi : 0,364 % 10424-pln {672} ..co stanowi : 0,364 % 10640-pln {112} ..co stanowi : 0,061 % 250148-pln {14} ..co stanowi : 0,008 % 250154-pln {16} ..co stanowi : 0,009 % ciekawe rozkłady...... ale trafienie 10|20 to nie bułka z masłem ![]() |
2018-01-10 (14:10)![]() Data rejestracji: 2007-04-03 Ilość postów: 41774 ![]() | wpis nr 1 137 958 [ CZCIONKA MONOSPACE ] 2018-01-10 (13:05) status fair_play Data rejestracji: 2016-05-12 Ilość postów: 1393 14865 wpis nr 1 137 926 777ch> nie miałem C(7,4,2,2)=5 ale z WG uzyskałem: 01 02 03 04 01 02 04 07 01 04 05 06 02 03 05 06 03 05 06 07 .................... fair_play>> miałeś ten rozpis C(7,4,2,2)=5 na LJCR ![]() https://www.ccrwest.org/cover/table.html https://www.ccrwest.org/cover/show_cover.php?v=7&k=4&t=2 1 2 3 4 1 4 5 6 1 5 6 7 2 3 4 7 2 3 5 6 .................. |
2018-01-10 (15:35)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 137 973 [ CZCIONKA MONOSPACE ] 777ch> oryginał: Vo, Ko, To, Mo inversja: Vi = Vo Ki = Vo - Ko Ti = Vo + To - (Ko + Mo) Mi = Vo - Mo |
2018-01-10 (19:23)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 138 031 [ CZCIONKA MONOSPACE ] O to szło . Dzięki,nie wiem po co , ale może się przydać. |
2018-01-10 (19:55)![]() Data rejestracji: 2007-04-03 Ilość postów: 41774 ![]() | wpis nr 1 138 053 [ CZCIONKA MONOSPACE ] Wracając do niedawnych rozważań nad systemami do MM, dającymi w sposób gwarantowany min. 300% zysku przy wejściu 50% liczb granego zbioru - to system pełny* 3z13=286*2.5=715zł ma następujące gwarancje: a/ przy 5z13 (38.46%) wygrana to 10x 3;80x 2 dające 700zł a zatem stratę 15zł czyli odzyskanie 97.90% kosztu gry b/ przy 6z13 (46.15%) wygrana to 20x 3; 105x 2 dające 1290zł, czyli zysk 575zł c/ przy 7z13 (53.84%) wygrana to 35x 3; 126x 2 dające 2142zł, czyli zysk 1427zł *generator>> http://www.wynikilotto.net.pl/narzedzia/systemy-pelne/ |
2018-01-10 (21:20)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 138 082 [ CZCIONKA MONOSPACE ] 777ch> Coś w tym allmoglich z wydrukami jest nie tak, bo jak przy tym samym systemie raz sprawdzam "if hit=6" dostaję wydruk: Sprawdzone 6-skr. liczb [22] zbiór =74613-kombinacji Minimum gwarantowane: 40-pln , 3x 4|6,8x 3|6,33x 2|6,24x 1|6, a przy "if hit=7" dostaję wydruk: Sprawdzone 7-skr. liczb [22] zbiór =170544-kombinacji Minimum gwarantowane: 1-pln , 7x 4|6,7x 3|6,42x 2|6,14x 1|6,..np..[16,17,18,19,20,21,22] Przecież skreśleń jest tyle samo a na wydrukach jest: Sprawdzone 6-skr. i Sprawdzone 7-skr. oraz Minimum gwarantowane: 40-pln przy 6 trafionych i Minimum gwarantowane: 1-pln przy 7 trafionych. --- wpis edytowano 2018-01-10 21:22 --- |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 176 177 178 ... 554 555 Wyślij wiadomość do admina |