skyboy

Sugeneruoti K sveikųjų atsitiktinių skaičių intervale [0;1]. Apskaičiuoti kiek sugeneruotoje sekoje yra 0 ir 1. naudoti cikla For...Next Dim n As Integer Dim sk As Single Dim seka As String Dim suapval As Byte Dim i As Integer Private Sub Command1_Click() n = Text1.Text seka = " " For i = 0 To n - 1 Randomize sk = Rnd suapval = Round(sk) seka = seka & suapval & " - " Next i Label1.Caption = seka End Sub vat tiek sugalvoju, toliau nzn gal kokia komanda reikia kuri skaiciuotu vienodus skaicius gaip manot Jūs.

cia taip turi but nesijaudink <_<

gal kas turi e-gold zaidimu nauju, rasykit i PM <_<

Seiki :) turiu hyip manager pro scripta ir vieno dalyko nesuprantu, kodel man nerodo kai kas inwestuoja depozit amount :)