tomobp

Uz 300lt atiduotum?

O kainos nenuleistai ?

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

Parašiau.

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,' ', b,' ', c);

end.

Program T4;

var t : boolean;

s, a, b ,c : integer;

begin

t := TRUE;

s := 0; a := 3; b := 3;

for c := a to a + b do

begin

if t then s := s + c

else s := s + a + b;

a := a + 1;

t := not t;

end;

writeln(t,' ',a,' ',s);

end.

Jai kas galetu padet tai noreciau kad parodytumet kaip atlikt veiksmus kad gauti atsakymus.

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( #177);

end.

Kaip pakeisti programa kad Atsitiktine tvarka butu destomi ivedami simboliai?

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, 2);

TextBackground(Blue); ClrScr;

TextColor(Green); Write('Kiek yra arbuzu ? ');

TextColor(red); Read(n);

{---------------------------Sunkiausio paieska---------------------------}

Window (8, 7, 50, 20);

TextBackground(Blue); ClrScr;

TextColor(Green); GoToXY(10, 2);

Write ('Arbuzu svoriu ivedimas ');

Window (10, 9, 45, 19);

TextBackground(White); ClrScr;

TextColor(Black); GoToXY(1, 11);

D := 0; Dn := 0;

for i := 1 to n do begin

Write('Iveskite ', 1:2, ' -ojo arbuzo svori: ');

ReadLn(Sv);

if Sv > D then begin

D := Sv;

Dn := i;

end;

end;

{------------------Kompiuteris galvoja-----------------------------}

i := 1000;

while i < 8000 do begin

Sound(1500); Delay(Greitis); Nosound;

i := i + 1000;

end;

{------------------------------------Rezultatai---------------------}

Window(40, 3, 70, 6);

TextBackground(Brown); ClrScr;

TextColor(Magenta);

GoToXY(3, 1); Write('sunkiausias arbuzas Nr', Dn:4);

GoToXY(10, 3);

TextColor(Green); Write('Jo svoris : ', D:6:2);

{--------------------------------------------------------------------}

Delay(Greitis);

Window(1, 1, 80, 25); {Visas ekranas}

GoToXY(60, 25); TextColor(Red); Write('ENTER'); ReadLn;

end.

i skype : tomobp