Pereiti prie turinio

L33T

VIP nariai
  • Pranešimai

    3.342
  • Užsiregistravo

  • Lankėsi

  • Laimėta dienų

    7
  • Atsiliepimai

    100%

Visas L33T turinys

  1. http://www.offshore-bank-account.eu/swiss-numbered-bank-account.html cia yra is ko rinktis ir kiekvienam banke nurodyta minimalus depositas.
  2. ten tik linkai iki foto, manau fb turėtų būti ištrynęs, o tos pačios foto turėtų būti pas mane pc ar ne?
  3. Kaip atrasti nuotrauką kompiuteryje, jei neseniai atidariau ją facebook'e, bet ją ištrynė, o man jos prisireikė. Kur ieškoti? Gal yra koks įrankis, kuris parodo neseniai atidarytas nuotraukas, nes vis tiek pasilieka kompiuteryje kažkurį laiką. Naršyklė chrome
  4. Pfizer labs (made in usa)
  5. 30 tab, po 100 mg - 180 LT
  6. Sveiki, pirmam semestre VU mif'e turiu assemblerio paskaitas. Gal turit kokių patarimų, kaip patys mokėtes, ar kokia literetūrą skaitėt ar dar ką?
  7. Suranda vieną linką arba su rapidleech/rdp peruploadina
  8. tai, kad eina pasirinkti per paypal mokėti.
  9. Bandžiau nepavyko, kaip kitiems?
  10. Puiki idėja, seniai trūko gero torrent saito su visais filmais viename, o ne padrikai per penkis vaikščioti :)
  11. Be persėdimų gruodžio 18 dieną Luton -- > Kaunas 238lt Su persėdimais Gruodžio 15 dieną Stansted -- > Gotenburg -- > Kaunas 123lt
  12. Seniai galvojau reik pamėginti ir šiandien pamėginęs matau tokį vaizdelį: http://img64.imageshack.us/img64/2212/wtfij.png Kas? Kaip? Kur?
  13. program zaidynes; var m:integer; begin WriteLn('Iveskite zaidiniu data!'); ReadLn(m); if m < 1896 then WriteLn('Zaidynes tuo metu dar nevyko') else if (m - 1896) mod 4 = 0 then WriteLn('Metai olimpiniai ir zaidines yra ', (m-1896) div 4 + 1) else WriteLn('Neolimpiniai metai'); Readln; end.
  14. WriteLn(i,': ',a,'+',b,'+',c,'=',suma);
  15. 290 lt su siuntimu.Reikia atsiristi
  16. Paskaityk mano paskutinį pranešimą gal 15 kartų ir, beje, antra programa yra jau parašyta tik pasinagrinėk ir pataisyk savo, jei nesuprasi perskaitęs pranešimą 15 kartų.
  17. WriteLn reik palikti už ciklo, jei nori matyti ne tarpinius rezultatus prie rezultato dar reikia pridėti rezultatą rezult := rezult + pir + ant + tre;
  18. program antra; var a,b,c,m,e,suma,i:integer; begin suma:= 0; WriteLn('Iveskite pradini trizenkli skaiciu'); ReadLn(m); WriteLn('Iveskite galutini trizekli skaciu'); Readln(e); for i := m to e do begin a := i div 100; //3 b := i div 10 - 10*a; c := i mod 10; //1 suma:= suma + a + b +c; end; WriteLn('Visu iki tol einanciu skaiciu suma yra ', suma); Readln; end. Gal kas parašys ciklą, nepriklausomai nuo kiek skaitmenu turi skaicius, kad atskirtu jo skaitmenis?
  19. 1 su ciklu for program trecia; var rezult, pir, ant, tre, i:integer; begin for i:=1000 to 9999 do begin rezult := i mod 10; pir := i div 1000; ant := i div 100 - 10*pir; tre := i div 10 - 100*pir - 10*ant; if rezult = pir+ant+tre then writeLn('Skaicius, kurio paskutinis skaitmuo yra lygus kitu skaitmenu sumai yra: ',i); end; Readln; end.
  20. Trečią labai panašią rašiau tik su kordinatėm, tai išsikarpytum ir gautum gerą(beje, ne pats optimaliausias variantas čia) {Surandam koks yra trikampis? Status, bukas,smailas ar isvis neegzistuoja toks trikampis} program mini_uzduotele_spalio_06; var x1,x2,x3,y1,y2,y3:integer; a,b,c,temp1,temp2:real; begin WriteLn('Iveskite x1 x2 x3 y1 y2 y3 koordinates!'); Read(x1,x2,x3,y1,y2,y3); a:= sqrt(sqr(x2-x1)+ sqr(y2-y1)); //gaunu krastiniu ilgius b:= sqrt(sqr(x3-x1)+ sqr(y3-y1)); c:= sqrt(sqr(x3-x2)+ sqr(y3-y2)); if a > c then begin //
  21. Galas pabraizytas, ant priekio plevele yra. Dezute ir telefonas 420lt. Siunciu i kitus miestus po apkomejimo, arba klaipedoj i rankas
  22. Here you go http://ims.mii.lt/fps/lt/down/index.html
×
×
  • Pasirinkite naujai kuriamo turinio tipą...