Pereiti prie turinio

furijus

Patvirtinti nariai
  • Pranešimai

    672
  • Užsiregistravo

  • Lankėsi

  • Laimėta dienų

    3
  • Atsiliepimai

    100%

furijus Pranešimai

  1. GO WILD CASINO: $/€/£ 10 NO DEPOSIT BONUS

     

    EXCLUSIVE FOR BANKROLLMOB MEMBERS:

     

    Take your wild casino skills for a spin at Go Wild Casino for a free $/€/£ 10 no deposit bonus just by signing up.

     

    Should you decide to make a deposit later on, you get a stunning 125% welcome bonus up to 1200 plus 20 free spins on Hitman slots.

     

     

    nezinau ar veikia dar nebandziau bet ismeginsiu ir as.

  2. PokerStars Tournament #203040267, No Limit Hold'em

    Buy-In: $10.00/$1.00 USD

    1536 players

    Total Prize Pool: $45790.00 USD

    Tournament started 2009/10/18 15:00:00 EET [2009/10/18 8:00:00 ET]

     

     

    Dear monkys55,

     

    You finished the tournament in 2nd place. A USD 5,494.81 award has been credited

    to your Real Money account.

     

    http://www.pokerstars.com/poker/tournaments/leader-board/

     

     

    Congratulations!

     

    Thank you for participating.

     

    Kas sakė, kad iš turnyrų neina uždirbti? ;)

     

    NICE NICE

  3. Kur paryskinta reikia kad ismestu didziausia skaiciu (pwz: 5 7 ir ismestu 7, o jeigu rasysiu 7 ir 1 kad ismestu 7 nes db kazkas negerai) dekui kas pades.

     

     

     

    unit maks1;

     

    interface

     

    uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, StdCtrls;

     

    type

    TForm1 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure FormActivate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    private

    { Private declarations }

    public x:double;

    { Public declarations }

    end;

     

    var

    Form1: TForm1;

     

    implementation

     

    {$R *.dfm}

     

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

    var x,maks:double;

    begin

    if key=#13 then begin

    x:=x+strtofloat(edit1.text);

    label1.Caption:=floattostr(x);

    x:=strtofloat(edit1.text);

    if x>maks then begin maks:=x;

    end else maks:=maks;

    Label2.Caption:=Edit1.Text;

    end;

    edit1.Text:='';

     

    end;

     

    procedure TForm1.FormActivate(Sender: TObject);

    begin

    x:=0;

    edit1.Text:='';

    end;

     

    procedure TForm1.Button1Click(Sender: TObject);

    begin

    x:=0;

    edit1.Text:='';

    label1.Caption:='0';

    end;

     

    end.

×
×
  • Pasirinkite naujai kuriamo turinio tipą...