tomobp

Uz 300lt atiduotum?

Jai nusideresi tai gal ir nuleisiu :)

Naudotas samsung 5600 virselis apibraizytas nemazai bet ekranas neturi ne ibrezimo. Komplekte tik deze ir pakrovejas(UK). Kaina 270 , siuntima apmoku pats. http://www.ipix.lt/thumbs/12810612.jpg http://www.ipix.lt/thumbs/69207713.jpg Nokia e63 bukle 9/10 Komplektacijoi Pakrovejas(UK) ir ausines , kaina 450lt su rimtais pirkejais kaina paderinsim. http://www.ipix.lt/thumbs/49255459.jpg http://www.ipix.lt/thumbs/29958317.jpg

Man irgi :lol:

Uz 150lt jai atiduodi pajemu.

Htc Desire gal turesi ir kokia kaina i Pm.

Nu tai zmones tau kosmisku kainu nepasiulis .. Pats nustatai kaina o tada jau mazdaug zinoma apie kokia kaina turetu pirkejas orentuotis..

Kiek noretum gaut uz ji?

Samsung D880 Duos kokia kaina?

Kokie ps2 zaidimai?

Dar be to perka is nariu kurie neturi daug pliusiu , kai is kitu kurie 100+ turi gali tuo paciu kursu nusipirkt ;D

"Re:PS$, Prieš 9 minučių(-tes) Naujokas * Grupė: Nariai Atsiliepimai: +5 Pranešimai: 39 Vartotojo Nr.: 35,909 Užsiregistravo: 2010 05 19 sr radau jau be to mazoka pliusu pas tawe buvo apgave tai nesinori prasideti " O temoij pasirases kad veda 10+ nariam :DD

Nu bet man kazko nesigauna atsakymai tokie kokie turetu gautis tai gal kas galetu parodyt visa ta veiksmu eiga tu programu?

Program T1; var a, b: integer; begin a := 20; b := 4; while a > 2 * b do begin b := b + 2; a := a - b; end; writeln(a,' ',b); end. Program T2; var s, a, b, c : integer; begin s := 3; b := 6; c := 4; for a := s + c to b + c do begin s := s + a; c := c + 1; end; writeln(s,' ',c); end. Program T3; var s, a, b, c : integer; begin s := 0; a := 1; b :=1; c := a + b; while (s < 20) and (c < 10) do begin s := s + c; a := b; b := c; c := a + b; end; writeln(s,' ', a,

Ar gave bonusus bandet jau kas nuimti pinigus?

Nepernaujas narys buciau kad pretenduot i bonusa?

Jo sitaip dekui :)

program P7; uses Crt; {------------------------------------------------------------------------------} procedure Kiek( sim : char ); var x, y , sp : integer; begin Randomize; repeat x := Random(80); y := Random(24); sp := Random(15); GoToXY(x, y); TextColor(sp); write(sim); Delay (500); until KeyPressed; ReadLn; end; {------------------------------------------------------------------------------} begin ClrScr; Kiek( '*' ); Kiek( #1 ); Kiek( #2 ); Kiek( #3 ); Kiek( #4 ); Kiek( #5 ); Kiek( #6 ); Kiek( #176); Kiek( #1

Shokutis didelis dekui.

Nu taip ji dbr iesko didziausio arbuzo svori , o man reikia pakeisti kad rastu maziausio arbuzo svori.

Kaip reiktu is didziausios pakeisti i maziausios reiksmes paieska? program arbuzas; uses crt; const Greitis = 1000; var n : integer; {Arbuzu skaicius} sv : real; {Arbuzu svoris} i : integer; {Arbuzu numeris} D : real; {sunkiausio arbuzo svoris} Dn : integer; {sunkiausio arbuzo numeris} {-----------------------------------------------------------------------} begin TextBackground(black); ClrScr; {Valomas ekranas} {------------------------------------------------------------------------} Window (8, 3, 30, 5); GoToXY(5,

i skype : tomobp