-
Pranešimai
3.342 -
Užsiregistravo
-
Lankėsi
-
Laimėta dienų
7 -
Atsiliepimai
100%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
Visas L33T turinys
-
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?
-
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
-
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ą?
-
Suranda vieną linką arba su rapidleech/rdp peruploadina
-
tai, kad eina pasirinkti per paypal mokėti.
-
Bandžiau nepavyko, kaip kitiems?
-
Puiki idėja, seniai trūko gero torrent saito su visais filmais viename, o ne padrikai per penkis vaikščioti :)
-
Be persėdimų gruodžio 18 dieną Luton -- > Kaunas 238lt Su persėdimais Gruodžio 15 dieną Stansted -- > Gotenburg -- > Kaunas 123lt
-
Aš turiu wupload premium.
-
Seniai galvojau reik pamėginti ir šiandien pamėginęs matau tokį vaizdelį: http://img64.imageshack.us/img64/2212/wtfij.png Kas? Kaip? Kur?
-
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.
-
WriteLn(i,': ',a,'+',b,'+',c,'=',suma);
-
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ų.
-
WriteLn reik palikti už ciklo, jei nori matyti ne tarpinius rezultatus prie rezultato dar reikia pridėti rezultatą rezult := rezult + pir + ant + tre;
-
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?
-
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.
-
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 //
-
Galas pabraizytas, ant priekio plevele yra. Dezute ir telefonas 420lt. Siunciu i kitus miestus po apkomejimo, arba klaipedoj i rankas
-
Here you go http://ims.mii.lt/fps/lt/down/index.html