Nully

1. Jei užpildei 1. a 2. b 3. c, ir tavo konkursinio balo užtenka pirmu numeriu parašytam dalykui (a), tu į jį ir įstosi, o b ir c bus ignoruojami. Kituose turuose gali rizikuoti prarasti savo gautą vieta (šiuo atvėju a) ir apkeisti dalykus vietomis pagal prioritetus, pvz 1.b 2.c 3.a , tokiu atvėju, jei tavo KB patenkina b balą, tik į jį ir įstosi, jei netenkina, tada žiūrima į toliau einančius dalykus.

Tu nenuskaitai tos n reikšmės, atidaręs failą skaitymui turi parašyti Readln(n); kad n turėtų kažkokią reikšmę, o tik poto su ja dirbti.

program Noname0; type masyvas = array[1..100] of integer; var d,r:text; i,n,isleistaIsViso,laimetaIsViso:integer; isleista,laimeta:masyvas; /////// nuskaitymas procedure nuskaitymas(var isleista,laimeta:masyvas); begin assign(d,'duomenys.txt'); reset(d); readln(d,n); for i:=1 to n do readln(d,isleista[i],laimeta[i]); close(d); end; /////// funkcija randanti pinigu suma (sudedanti masyvo elementus) function suma(var mas:masyvas; n:integer):integer; var laikina:integer; begin laikina:=0; for i:=1 to n do laikina := laikina + mas[i]; suma:=laikina; end; ////// funkcija randanti max function max(var mas:masyvas; n:integer):integer; var didz,i:integer; begin didz := 1; for i:=2 to n do if mas[i] > mas[didz] then begin didz := i; end; max:=mas[didz]; end; /////// rasymas i faila procedure rasymas(var isleista,laimeta:masyvas); begin assign(r,'rezultatai.txt'); rewrite(r); Writeln(r,suma(isleista,n),' ',suma(laimeta,n)); Writeln(r,'Didziausias laimejimas: ',max(laimeta,n)); if suma(laimeta,n) > suma(isleista,n) then begin Writeln(r,'Pelnas: ',suma(laimeta,n)-suma(isleista,n)); end else Writeln(r,'Nuostolis: ',suma(isleista,n)-suma(laimeta,n)); close(r); end; begin nuskaitymas(isleista,laimeta); rasymas(isleista,laimeta); end.
 
Laukiu gero atsiliepimo ! :D
Klausk jei kas neaišku :)

3 užduotis

#include <iostream> using namespace std; int main(){ int n,i,sum; int min,max; cout <<"Intervalo pradzia: "<<endl; cin >> min; cout <<"intervalo pabaiga "<<endl; cin>>max; cout << "tobulieji skaiciai intervale yra :" << endl; for(n=min;n<=max;n++){ i=1; sum = 0; while(i<n){ if(n%i==0) sum=sum+i; i++; } if(sum==n) cout << n << " "; } return 0; };
 
 
greit papeckiojau, iš esmės veikia
 
1 užduotis su viskuom. Tikiuosi Nully nesupyks, kad pasiskolinau jo kodą, ir tik pridėjau tobulųjų skaičių tikrinimą? :) Viskas atrodo veikia, kodas gal ir ne gražiausias, bet norėjau greitai :D

#include <iostream> using namespace std; int main(){ int n; cin>>n; int dalikliuKiekis=0, dalikliuSuma=0; for (int i=1; i < n; i++) { if (n % i == 0) { dalikliuKiekis++; dalikliuSuma=dalikliuSuma + i; } } if(dalikliuSuma==n){ cout << "skaicius tobulas "<<endl; } else { cout << "skaicius netobulas"<<endl; } if (dalikliuKiekis < 2) cout<<"Skaicius "<<n<<" yra pirminis\n"; else cout<<"Skaicius "<<n<<" nera pirminis\n"; cout<<"Dalikliu kiekis "<<dalikliuKiekis<<"\n"; cout<<"Dalikliu suma "<<dalikliuSuma<<"\n"; };
 
 
edit : truputį patrumpinau ;d

1 užduotis be d.

#include <iostream> using namespace std; main() { int dalikliuKiekis=0, dalikliuSuma=0, n; cin>>n; for (int i=1; i < n; i++) { if (n % i == 0) { dalikliuKiekis++; dalikliuSuma=dalikliuSuma + i; } } if (dalikliuKiekis < 2) cout<<"Skaicius "<<n<<" yra pirminis\n"; else cout<<"Skaicius "<<n<<" nera pirminis\n"; cout<<"Dalikliu kiekis "<<dalikliuKiekis<<"\n"; cout<<"Dalikliu suma "<<dalikliuSuma<<"\n"; }
 
2 užduotis

#include <iostream> using namespace std; main() { int a,b,i,dalikliuKiekis=0; cin>>a; cin>>b; for (a; a <= b; a++) { for (i=1; i < a; i++) { if (a % i == 0) dalikliuKiekis++; } if (dalikliuKiekis <2 && a != 1 && a != 2) cout <<a<<"\n"; dalikliuKiekis=0; } }
 
Nežinau kas yra tobuli skaičiai, jei pasakysi, vakare pabaigsiu programas :)

Nu jo nusivest paną kur Firminis patiekalas Kiaulės šnipas su pupelėmis o gertumėt 12% alų :)

Man atrodo, kad per daug tikitės :D Sorry, bet testo tikrai dar nebus šią savaitę. Be to žaidimo dizainas keitėsi, tik nežinau ar į gerąją pusę.
http://snag.gy/RiKV2.jpg

Sedi Raudonkepuraite ant kelmelio nuliudus, pro sali eina meska. Pamate Raudonkepuraite nuliudusia ir klausia: Ei Raudonkepuraite, ko cia liudi? Raudonkepuraite atsako:...Kaip gi cia neliudesi... visos panos jau turi apzelusius kusius, o as dar ne... Pagailo meskai Raudonkepuraites, tai ji nusiplese savo uodega ir pridejo Raudonkepuraitei..nuo tada meskos be uodegu. Skrenda gandras ir mato vel Raudonkepuraite sedi liudna, nusileidzia ir klausia: Ei Raudonkepuraite, ko cia liudi? Raudonkepuraite atsako:Ko cia neliudesi, visos panos jau kaltos, o as vis dar cielk*te... Pagailo gandrui Raudonkepuraites, tai paeme ir pradure snapu jai pyz*a... Nuo tada gandru snapai raudoni... Eina Raudonkepuraite palei upe ir verkia. Priplaukia zuvis ir klausia: Ei raudonkepuraite, ko cia liudi?Raudonkepuraite atsako: Ko cia neliudesi, visos panos jau patyrusios orgazma, o as dar ne.! Pagailo zuvelei jos, isoko i pyzda, pasimakalavo ir issoko lauk. Nuo tada neaisku, ar pyz*a smirdi zuvimi, ar zuvys pyz*a..

Sveiki,
 
Tenka parduot eBay vieną kitą atliekamą daiktą, šiandien apsireiškė, kaip nekeista, lietuviai su savo cardinimo įpročiais, panorę įsigyt "pigesnių" prekių
 
Pagrindinė info:
Dropas - PirkAnglijoje sandėlys -
eBay memberis - pirkęs s4, xboxus ir kitus elektronikos daiktus (brangius), taipogi screenshotai su šio memberio user id buvo publikuoti rsbot.lt forume, kaip, neva, "praėję daiktų gavimai"
Pats PayPal sąskaitos turėtojas -aktyvus rsbot narys, turėjęs ir turintis reikalų su ten siautėjančiais carderiais
 
Turiu daug info IP (tikrą ir proxy), miestą, telefoną, giminių sąrašą, gimimo datą ir kitą info, kuri bus perduota policijos pareigūnams, vaikio artimiesiems ir mokyklos administracijai (visa info viešai prieinama - kas čia per vagis toks?)
 
Taipogi, nusiunčiau ir "labanak vaikučiams" žinutę pačiam carderiui
 
Koks tikslas? Credit card theft aukos praranda gyvenimo santaupas, jau nekalbant apie iškreiptą rinką ir patį faktą, kad žmonės, užsiimdami cardinimu - netgi tuo didžiuojasi ir neįžvelgia nieko nelegalaus.
 
Duomenys bus surinkti ir perduoti tam tikrom institucijom, bei pačio herojaus artimiesiems - jei jis nekalas - niekas jam per galvą ir neduos. Tiesa, jis pats rsbot publikuoja savo "laimikius"
 
Tikiuosi, kad bent vieną šita istorija pamokys. Taipogi, raginu visus nukentėjusius nuo credit card fraud sukčių netylėt laukiant refundo refundo (kurio galit ir negaut), o imtis priemonių, kad aferistų būtų mažiau

FACEBOOK'o PROGRAMŲ SISTEMŲ GRUPĖ

Viskas ten normaliai, pateikta info ir tiek, ne visi turi pinigų tamstos akis gražiais piešinukais lepinti.

Prie ko čia Lietuva? Nebent apmaudus tavo draugas, kad neįstojo :D

VU Programų sistemos 18,68
VU Informacinės technologijos 18,68

Man panašiai buvo prieš N metų kai mokinausi programuoti. Viskas nervindavo aplink kad tik gali, nors ir dabar kartais dar pasitaiko, bet dabar ramiau. Plius/minus jau viskas žinoma, ir nebėra tokių keistų magiškų situacijų kur turėtų veikti, bet neveikia, ir po pusės dienos kankinimosi randi praleistą kablelį.
 
Anyway, vaistai nėra išeitis... Čia kraštutinis atvejas. Tarkim savo atveju aš namie jau mažai beprogramuoju, nors būna lyg ir neblogų pasiūlymų, bet sveikata brangesnė ir visų pasaulio pinigų neuždirbsi. Jeigu ir uždirbtum visus pasaulio pinigus, į kapus nenusineši... Geriausia turėti tiek kiek reikia, o nemanau kad tau reikia milijonų (nors visokių žmonių būna).
 
Grįžtant prie to paties. O tu pabandyk neprogramuot namie, jei esi Freelancer ir dirbi namie, eik į hub'a. Nusistatyk darbo valandas pats. Tarkim nuo 8 iki 16-17 val ir viskas. Po to pareini, pavalgai ir leki arba į miestą, arba į kiną (brangus malonumas), arba į sporto salę, bėgiojimas labai gerai nuima stresą, lauke juk vasara dabar. Turnikas, aktyvus sportas. Jei turi dviratį, prašau vakarais numink po 10-15km. Viskas būsi pavargęs, pravėdinęs galvą. Jokių kompų parėjus, užkandi ką nors lengvo prieš miegą (mitas kad po 18 val valgyti yra blogai).
 
Kitaip tariant daryk viską kad tik nesėdėtum prie kompo , o kuo aktyviau praleistum laiką. Vėdintum galvą. Po kelių savaičių pamatysi kaip pasijusi geriau, tapsi žvalesnis, geriau miegosis (nes jaučiu ir miegi blogai), žiūrėk ką valgai irgi. Ne vien kompas kenkia sveikatai.
 
Tai toks mano pastebėjimas iš savo asmeninės patirties.

Tai taip, bet kadangi man visu pirma reiktu teoriniu ziniu, kadangi neturiu ju daug, tai jau geriau stoti i universiteta taip?
 
Frixai, kuo KTU geriau nei VU ? Arba atvirksciai. Papasakok, nesidomejau apie ktu beveik.

Parašiau į NEC dėl informatikos, per 3min atrašė, kad bus TREČIADIENĮ.

Rado problemą... Tai tik parodo, kad egzaminų rezultatai protinių sugebėjimų neatspindi :D. Lyg jai šautuvą prie kaklo kas laikytų ir lieptų šiemet stoti.

O yra žadančių iš vis neemigruoti? Be manęs.

Narkotikus pardavinėk...
 
Kažkas keisto vyksta su uždarbis.lt nepastebėjot? Kontingentas keičiasi.

Informatikos rezultatai bus 9-10d. :rolleyes:
 
Laba diena,
 
Tikėtina 10 d. Jei spėsim, gal 9 vakare.
 
 
 
Pagarbiai
 
Saulė Vingelienė
 
Nacionalinio egzaminų centro direktorė
 
Tel. (8 5) 275 61 80
 
P.S Kas įdomiausia,atrašė per mažiau nei 10min :|

Laba diena,
Ryt skelbsime matematiką, istoriją ir vokiečių kalbą. Chemija bus pirmadienį. Biologijos data dar nenustatyta.
 
Pagarbiai
Saulė Vingelienė
Nacionalinio egzaminų centro direktorė

Ironiška, kad ta pati anomalija tavo postą du kartus įdėjo :D

Gavau vertingos informacijos ir nustebinsiu jus. Išlaikė apie 91 proc., kuomet kalbėjo, kad išlaikys 70-75 proc. Kitas dalykas, visos mokyklos turi sąrašus kas laikys MBE (nes vistiek mokykla turi lipdukus klijuoti, žinoti kiek stalų). Taigi, jei jūsų mokykla nėra atsilikusi, šiandien turėtumėte sužinoti - išlaikėte ar ne. Neskambina? Patys skambinkite, manau, tikrai pasakys. Na nebent jūsų mokykla tokio lygio, kaip pas mane, kad buvau kartą nuėjęs dienyno slaptažodžio pasiimti, o ten pamiršo pc slaptažodį, pusę valandos bandė spėlioti slaptažodį, bet vistiek neatspėjo ir likau nieko nepešęs.

Popieriniai bilietai:
1. Galima spausdinti namuose.
2. Galima perduoti kitam žmogui panaudojus.
3. Galima primėtyti stotelėse ir bet kur (tyčia/netyčia iš kišenės iškrenta).
4. Nėra galimybės suskaičiuoti, kada ir kiek važiuoja žmonių viešuoju transportu.
 
Su šita logika, kad nusipirkau popierinį ir ramu.. Tai dabar Londone visi nevažinėja, nes popierinių bilietų nėra? :) Gal ir Maximoj mėsos nebepirkit, nueik į mišką ir pasigausi ką nors. Arba, išvis, kur kompiuterį gavai? Kodėl naudojiesi naujom technologijom? Rašyk ant popieriaus.
 
O tiems, kas sako, kad autobusų juosta užima automobilių - tai aš jiems pamojuosiu pro langą pralėkdamas tame autobuse :) Niekas neverčia važinėt su mašina MIESTE.
 
Tokie argumentai: autobusas manęs nenuveža nuo durų iki durų. Mano laikas per daug brangus ir per dieną negaliu pavaikščioti 15-30 minučių.
 
Vakar stotelėje sėdėdamas suskaičiavau 50 mašinų, kurios važiavo ta viena juosta Kalvarijų g. 8 ryto. Tik 4 mašinose tame sraute sėdėjo daugiau nei vienas žmogus, tiksliau - 2. Daugiau nesėdėjo nė viename.
 
Ir paklauskit, iš kur tie kamščiai? :D Čia sutapimas, kad visų iš eilės važiuojančių 50 mašinų vairuotojai gyvena užmiestyje ir važinėja po vieną?

Planuojam išlaikyti.