agnek21

Vat būtent dėl tokių visokių klausimų ir sukūriau šią temą.
Dėl gyvenamosios vietos tai patarčiau rinktis bendrabutį. Aš taip pat maniau, kad bus sunku gyventi bendrabutyje, bet pasirodo visai ne! Susipažįstama su daug įvairių žmonių, kurie vėliau tampa draugais. Visų pirma jei turi draugų/pažįstamų kurie taip pat žada gyventi bendrabutyje gali keltis gyventi kartu ir taip išvengsi pakliūti pas gerenčius ir pns. žmones, aš pati apsigyvenau su jau pažįstama panele. Yra galimybė gauti dvivietį kambarį. Aišku gali atsitikti taip, kad tarkim tavo kaimynai bus tusavojantys visada ir ramybės neturėsi, bet tokiu atvėju gali persikelti gyventi į kitą bendrabutį. Dar vienas pliusas gyvenant bendrabutyje yra tai jog univeras matosi pro langą tai nereikia niekur važiuoti(jei studijuosi aplinkos inžinerija tai galiu garantuoti :D ) atsikeli 10 min ir tu jau paskaitoj. Ir bet kokiu atvėju butą išsinuomoti spėsi visada(+ dar žiemą nuomos kainos mažesnės būna nei rudenį). Taigi patarčiau rinktis bendrabutį, bent pradžiai.
Dėl merginų, tai taip jų čia mažiau nei kitur, bet tikrai yra, bent saulėtekyje jų netrūksta. Kompanijose dažniausia būna merginų(čia kiek aš susidūriau). Kaip pavyzdį galiu duoti savo aukšto pusę tai pas mus yra 10 panelių(iš maždaug 25 gyventojų) vienur būna daugiau, kitur mažiau, bet šiaip jei žmonės bendraujantys ir įdomūs kompanijoje merginų jiems tikrai netrūksta. :)
Aš pati gyvenu bendrabutyje ir pilnai galiu pasimokyt, o kai norisi ir atsipalaiduoti. Šiaip jei mėgsti bendrauti ir nori susirasti naujų pažinčių tai yra didžiausia priežastis dėl ko verta gyventi bendrabutyje, nes gyvendami bute dažniausia apsiriboja universitetas-namai-universitetas. :)
Einant gyventi į bendrabutį nereiktu tikėtis, kad tai bus 5* viešbutis ir kad viskas bus idealu, visko bus, bet šiaip gyvenimas čia turi daugiau pliusų, nei minusų.
Na tikiuosi neperdaug skaityt, išsiplėčiau truputį :D

Sveiki,
Esu VGTU fakultetinės studentų atstovybės narė. Prieš stodama turėjau nemažai klausimų pati, nes tai kas rašoma universitetų puslapiuose dažnai tik atrodo labai gražiai.
Taigi gal kas domitės ir turit klausimų susijusių su studijomis, bendrabučiais? Galiu padėti/pakonsultuoti jums rūpimais klausimais iš studento pusės.

baigiau Aplinkos fakultete, santykis tarp įstojusių ir baigusių maždaug 3:2, o ir "iškriturių" beveik nebuvo, visi patys išėjo per pirmą pusmetį supratę, jog jų vieta baleto mokykloje (taip mums vienas dėstytojas apie juos yra sakęs).
jei kas ir sunku buvo kažkam tai nebent matematiką ar atsparumą praeiti, tiems, kas su matematika nelabai draugauja, kitus dalykus per 3-4 kartą praeidavo visi, kas norėdavo.

Vat būtent dėl tokių visokių klausimų ir sukūriau šią temą.
Dėl gyvenamosios vietos tai patarčiau rinktis bendrabutį. Aš taip pat maniau, kad bus sunku gyventi bendrabutyje, bet pasirodo visai ne! Susipažįstama su daug įvairių žmonių, kurie vėliau tampa draugais. Visų pirma jei turi draugų/pažįstamų kurie taip pat žada gyventi bendrabutyje gali keltis gyventi kartu ir taip išvengsi pakliūti pas gerenčius ir pns. žmones, aš pati apsigyvenau su jau pažįstama panele. Yra galimybė gauti dvivietį kambarį. Aišku gali atsitikti taip, kad tarkim tavo kaimynai bus tusavojantys visada ir ramybės neturėsi, bet tokiu atvėju gali persikelti gyventi į kitą bendrabutį. Dar vienas pliusas gyvenant bendrabutyje yra tai jog univeras matosi pro langą tai nereikia niekur važiuoti(jei studijuosi aplinkos inžinerija tai galiu garantuoti :D ) atsikeli 10 min ir tu jau paskaitoj. Ir bet kokiu atvėju butą išsinuomoti spėsi visada(+ dar žiemą nuomos kainos mažesnės būna nei rudenį). Taigi patarčiau rinktis bendrabutį, bent pradžiai.
Dėl merginų, tai taip jų čia mažiau nei kitur, bet tikrai yra, bent saulėtekyje jų netrūksta. Kompanijose dažniausia būna merginų(čia kiek aš susidūriau). Kaip pavyzdį galiu duoti savo aukšto pusę tai pas mus yra 10 panelių(iš maždaug 25 gyventojų) vienur būna daugiau, kitur mažiau, bet šiaip jei žmonės bendraujantys ir įdomūs kompanijoje merginų jiems tikrai netrūksta. :)
Aš pati gyvenu bendrabutyje ir pilnai galiu pasimokyt, o kai norisi ir atsipalaiduoti. Šiaip jei mėgsti bendrauti ir nori susirasti naujų pažinčių tai yra didžiausia priežastis dėl ko verta gyventi bendrabutyje, nes gyvendami bute dažniausia apsiriboja universitetas-namai-universitetas. :)
Einant gyventi į bendrabutį nereiktu tikėtis, kad tai bus 5* viešbutis ir kad viskas bus idealu, visko bus, bet šiaip gyvenimas čia turi daugiau pliusų, nei minusų.
Na tikiuosi neperdaug skaityt, išsiplėčiau truputį :D

Sveiki,
Esu VGTU fakultetinės studentų atstovybės narė. Prieš stodama turėjau nemažai klausimų pati, nes tai kas rašoma universitetų puslapiuose dažnai tik atrodo labai gražiai.
Taigi gal kas domitės ir turit klausimų susijusių su studijomis, bendrabučiais? Galiu padėti/pakonsultuoti jums rūpimais klausimais iš studento pusės.

Vat būtent dėl tokių visokių klausimų ir sukūriau šią temą.
Dėl gyvenamosios vietos tai patarčiau rinktis bendrabutį. Aš taip pat maniau, kad bus sunku gyventi bendrabutyje, bet pasirodo visai ne! Susipažįstama su daug įvairių žmonių, kurie vėliau tampa draugais. Visų pirma jei turi draugų/pažįstamų kurie taip pat žada gyventi bendrabutyje gali keltis gyventi kartu ir taip išvengsi pakliūti pas gerenčius ir pns. žmones, aš pati apsigyvenau su jau pažįstama panele. Yra galimybė gauti dvivietį kambarį. Aišku gali atsitikti taip, kad tarkim tavo kaimynai bus tusavojantys visada ir ramybės neturėsi, bet tokiu atvėju gali persikelti gyventi į kitą bendrabutį. Dar vienas pliusas gyvenant bendrabutyje yra tai jog univeras matosi pro langą tai nereikia niekur važiuoti(jei studijuosi aplinkos inžinerija tai galiu garantuoti :D ) atsikeli 10 min ir tu jau paskaitoj. Ir bet kokiu atvėju butą išsinuomoti spėsi visada(+ dar žiemą nuomos kainos mažesnės būna nei rudenį). Taigi patarčiau rinktis bendrabutį, bent pradžiai.
Dėl merginų, tai taip jų čia mažiau nei kitur, bet tikrai yra, bent saulėtekyje jų netrūksta. Kompanijose dažniausia būna merginų(čia kiek aš susidūriau). Kaip pavyzdį galiu duoti savo aukšto pusę tai pas mus yra 10 panelių(iš maždaug 25 gyventojų) vienur būna daugiau, kitur mažiau, bet šiaip jei žmonės bendraujantys ir įdomūs kompanijoje merginų jiems tikrai netrūksta. :)
Aš pati gyvenu bendrabutyje ir pilnai galiu pasimokyt, o kai norisi ir atsipalaiduoti. Šiaip jei mėgsti bendrauti ir nori susirasti naujų pažinčių tai yra didžiausia priežastis dėl ko verta gyventi bendrabutyje, nes gyvendami bute dažniausia apsiriboja universitetas-namai-universitetas. :)
Einant gyventi į bendrabutį nereiktu tikėtis, kad tai bus 5* viešbutis ir kad viskas bus idealu, visko bus, bet šiaip gyvenimas čia turi daugiau pliusų, nei minusų.
Na tikiuosi neperdaug skaityt, išsiplėčiau truputį :D

Sveiki,
Esu VGTU fakultetinės studentų atstovybės narė. Prieš stodama turėjau nemažai klausimų pati, nes tai kas rašoma universitetų puslapiuose dažnai tik atrodo labai gražiai.
Taigi gal kas domitės ir turit klausimų susijusių su studijomis, bendrabučiais? Galiu padėti/pakonsultuoti jums rūpimais klausimais iš studento pusės.

Vat būtent dėl tokių visokių klausimų ir sukūriau šią temą.
Dėl gyvenamosios vietos tai patarčiau rinktis bendrabutį. Aš taip pat maniau, kad bus sunku gyventi bendrabutyje, bet pasirodo visai ne! Susipažįstama su daug įvairių žmonių, kurie vėliau tampa draugais. Visų pirma jei turi draugų/pažįstamų kurie taip pat žada gyventi bendrabutyje gali keltis gyventi kartu ir taip išvengsi pakliūti pas gerenčius ir pns. žmones, aš pati apsigyvenau su jau pažįstama panele. Yra galimybė gauti dvivietį kambarį. Aišku gali atsitikti taip, kad tarkim tavo kaimynai bus tusavojantys visada ir ramybės neturėsi, bet tokiu atvėju gali persikelti gyventi į kitą bendrabutį. Dar vienas pliusas gyvenant bendrabutyje yra tai jog univeras matosi pro langą tai nereikia niekur važiuoti(jei studijuosi aplinkos inžinerija tai galiu garantuoti :D ) atsikeli 10 min ir tu jau paskaitoj. Ir bet kokiu atvėju butą išsinuomoti spėsi visada(+ dar žiemą nuomos kainos mažesnės būna nei rudenį). Taigi patarčiau rinktis bendrabutį, bent pradžiai.
Dėl merginų, tai taip jų čia mažiau nei kitur, bet tikrai yra, bent saulėtekyje jų netrūksta. Kompanijose dažniausia būna merginų(čia kiek aš susidūriau). Kaip pavyzdį galiu duoti savo aukšto pusę tai pas mus yra 10 panelių(iš maždaug 25 gyventojų) vienur būna daugiau, kitur mažiau, bet šiaip jei žmonės bendraujantys ir įdomūs kompanijoje merginų jiems tikrai netrūksta. :)
Aš pati gyvenu bendrabutyje ir pilnai galiu pasimokyt, o kai norisi ir atsipalaiduoti. Šiaip jei mėgsti bendrauti ir nori susirasti naujų pažinčių tai yra didžiausia priežastis dėl ko verta gyventi bendrabutyje, nes gyvendami bute dažniausia apsiriboja universitetas-namai-universitetas. :)
Einant gyventi į bendrabutį nereiktu tikėtis, kad tai bus 5* viešbutis ir kad viskas bus idealu, visko bus, bet šiaip gyvenimas čia turi daugiau pliusų, nei minusų.
Na tikiuosi neperdaug skaityt, išsiplėčiau truputį :D

Sveiki,
Esu VGTU fakultetinės studentų atstovybės narė. Prieš stodama turėjau nemažai klausimų pati, nes tai kas rašoma universitetų puslapiuose dažnai tik atrodo labai gražiai.
Taigi gal kas domitės ir turit klausimų susijusių su studijomis, bendrabučiais? Galiu padėti/pakonsultuoti jums rūpimais klausimais iš studento pusės.

Sveiki,
Esu VGTU fakultetinės studentų atstovybės narė. Prieš stodama turėjau nemažai klausimų pati, nes tai kas rašoma universitetų puslapiuose dažnai tik atrodo labai gražiai.
Taigi gal kas domitės ir turit klausimų susijusių su studijomis, bendrabučiais? Galiu padėti/pakonsultuoti jums rūpimais klausimais iš studento pusės.

Matosi, kad yra ko nerimauti. *nebijau
 
p.s Sekmės 10-okam ryt, ir 12-okam birželio 1d. :)

Matosi, kad yra ko nerimauti. *nebijau
 
p.s Sekmės 10-okam ryt, ir 12-okam birželio 1d. :)

Matosi, kad yra ko nerimauti. *nebijau
 
p.s Sekmės 10-okam ryt, ir 12-okam birželio 1d. :)

Nėra perspektyvių ir neperspektyvių specialybių. Viskas priklauso nuo pačio žmogaus. Diplomas negarantuoja darbo. Senas ir dažniausiai tėvų įkaltas požiūris, kurį perėmė dar iš savo tėvų. Viskas priklauso, kiek įdėsi savęs kurdamas savo ateitį. Vieni įstoja į teisę ir studentaudami (ne studijuodami) laukia diplomo, nes juk diplomas jiems garantuos darbą. Jiems dažnai tenka nusivilti. Kiti studijuoja tai, kas jiems patinka ir studijų metu kuria planus, bei juos realizuoja, nes žino diplomo vertę mūsų šalyje. Tik įdėtos pastangos garantuos ateitį, ir nesvarbu kurį universitetą baigsi. Žemės ūkio universitetą baigęs studentas su draugais gali sukurti tokią organizaciją, kuri samdys savo reikmėms tuos pačius jaunus teisininkus. Tad sėkmės ir nesidairyk į kitus. Minios instinktas žalingas

Daugelis norėtų turėti savo nuosavą verslą ar panašiai. Bet reikia save vertinti blaiviai. Vien dėl to, kad tu norėtum kažko, nereiškia kad tu tai turėsi. Paklausk savęs kiek esi jau pasiekęs tame "Verslo kūrime" . Išaušus 18tam niekas savaime nepasistatys.
 
Su verslo studijavimu... ..toks vaizdas, kad visi, kas nežino ko nori, stoja į "verslą", tapatindami žodį verslas su daug pinigų ir lengvai. Rezultate, žmonės net nežino kas tai yra, 85% nusivilia po pirmo semestro, pamatę kad vietoj stebuklingų formulių kaip gauti $$ daug ir lengvai, yra tik krūva durnos teorijos. Protingesni meta, bando šansą kitur, likę tiesiog vegetuoja su ketvertuku kelnėse. To pasekoje diplomas vis labiau supanašėja į tualetinį popierių, universitetų reitingai krenta, bakalaurai dirba MC (arba iš vis bedarbiai)
 
Ką aš norėjau visa šita koše pasakyt, kad stodamas ten, turi jau tvirtai žinoti, ties kuria sritim gilinsiesi, turėti užsidegimą ir domėtis jau DABAR. Nestok tik dėl to, kad tau patinka žodis verslas.
 
Informatika, inžinerija ir panaši košė yra kitas reikalas.Gana daug potencialo šiandien.
 
Galop, viskas ko tau reikia, tai daryti tai, kas labiausiai patinka, o ne klausti forumuose ką tu sekančius 40 metų veiksi 40 dienų per savaitę. Mėgdamas tai, ką darai, VISADA būsi geresnis už tuos, kuriems draugas patarė stot , ar kuriems patiko žodis "verslas". Visada būsi reikalingas.

taip tas += čia jau įkišta iš C++, bet kadangi tai nieko nekeičia skaičiavime, tai ir naudoju :rolleyes: dėl 28 tai pas mane klaida, pasitaisyk jei gali, jei ne pataisysiu, bet pamėgink tai padaryti pats ;)

Čia parinkau citatų iš filmų tikrai neblogų :
 
Rimtesni :
 
Super naujas filmas "Laikas " (In Time), tikrai rekomenduoju peržiurėti ir Timberlakas vaidina,kaip profas ,ko iš jo nesitikėjau
 
Niekas neturi teisės gyventi amžinai ,jei kiti už tai sumoka savo gvybe (In Time)
 
-Tau liko gyventi pusę valandos,o iki tikslo eiti valanda su puse, ką darysi ? - Tada bėgsiu (čia butina filmą pažiurėti ,kad suprasti )
 
Bijok Dievo ! -O jis yra ,-O kaip gi. -čia tas kur ant paveiksliuko ?, Tai juk jį žmonės nupaišė...skausmą mačiau ,mirty mačiau ,o dievo nemačiau...(Ikiru)
 
Tik ismokes suprasti ir valdyti savo mintis,valdyti savo jausmus,- išmoksite kurti savo pasauly,kuriame gyvenate.Tik viso šito išmokę, pas jus prabus kūrėjas ir butent cia slypi jūsų laisvė ir jėga.(The Secret)
 
Visata mėgsta greity nedvejokite,nedelskite ir nestovėkite,kada atsiranda galimybė gyvenimo spurtui ,kada jaučiate impulsą,kada jusų vidinis balsas snabžda "pirmyn" -nedvejokite ir veikite.Ir gyvenimas jums atsidekos uz ryžtą.(The secret)
 
 
Pas kiekvieną iš musų yra savo kelias,savo bandymas ,kuris visada pilnas problemu.Kiekvienam išbandymui mes turime savo apsiprendimo teisę. Ir padarytas sprendimas mus visada kažkiek pakeičia.Tas musų priimtas sprendimas gali kiekvieną iš mūsų davesti iki paskutinės ribos,už kurios jau praraja. Bet kiekvienas panašus sunkus išbandymas mus daro tik stipresnius (Criminal minds)
 
Tam tikrose gyvenimo situacijos mums visiems pasakoma , kad laikas viena karta pabagti su tais vaikiiškais zaidimais. Kažkuriam tai sakoma 15-kos,kazkam 22 -ju,o kai kam ir 45 -penkeriu.Bet sako mums visiems,tik mes nežnome kada išgirsime tą klausymą . (MoneyBall)
 
Taikos metu vaikai laidoja savo Tėvus,karo metu Tėvai laidoja savo vaikus. (Immortals)
 
Žemė apvali Ko Mi Nam,taip kad nesvarbu į kurią pusę eisi ,kaip ir reisinis autobusas,visvien sugrįši į pradžią
 
Spausti ginklo gaiduką daug paprasčiau nei groti gitara . Griauti visada bus lengviau nei kurti (Desperado )
 
Išdavystė ,sušiktas reikalas,ypač tada kada tu jos epicentre (Bones )
 
-Linkiu geros dienos ,- Ne, geros dienos pačios nepasidaro, mes jas padarome geromis (Till Death)
 
Sugalvojai paklvailioti,daryk tai protingai (Supernatural)
 
Gyvenimas,tai maratonas,o maratone negalima laimėti ,neprisiklijavus pleistro ant nutrintų mazolių (Horrible Bosses)
 
Kerštas tai jausmas,kuris tave gali bet kada užmušti (The Mechanics)
 
 
 
Linksmnesni:
 
Tie naujieji romėnai paskutiniu metu skraido greičiau,gal but tai dėl jų naujos ,apvalesnės formos šalmų (asterix ir obelix)
 
Ilgai galvosi ,blogai baigsi (Snatch )
 
Šudas negali buti neskanus,nes milijonai musių negali amžinai klysti (Elena)
 
Kai aš prislinkau ir mano psitoletas įsirėmė tau į pakaušy ,aš pajutau kaip puikiai kvepia tavo plaukai (Chase )
 
Jis neturi vardo,todėl mirtis jo neras (Water World)
 
Pasakojimas iš pirmų lūpų apie I pasaulinį karą istorijos mokytojai skamba kaip "pornografinis filmas " (The vampires Diaries)
 
Buti išsigimėliu - normalu,romantizuoti išsigimusį ,tai išsigimimas (Dr.House)
 
Kada skauda širdį ,tai liga,o kada skauda širdį už kitus ,tai idiotizmas (Hausas)
 
Nelieskite akies.., .mes šalinam apendicitą ...- Gerai,jau gerai, bet akių visvien nelieskite (Dr.House) :)
 
 
-As save nudeginau,...- Kodel tu save nudeginai ? - Pratinuosi prie Pragaro :) (Stay)
 
-Dantys vietoi ,sveikas "vamzdis " kelnėse,plaukai blizga , švarkelis užsektas - nu ką ...ar tai ne priežastis - tapti įžymiu :) (Misfits)
 
policininkas žiuri i įtariamąjį :
- Kas Atsitiko? -Nieko neatstiko.-Tai kodė jūų tokia veido išraiska,lyg butumet išvalę tualetą mano dantų šepetuku ? (Criminal Minds)
 
Jei LadyGaga nedainuotų ji būtų eilinė baisi boba. (realnyja pacany)Rusiskas serialas
 
Pas tave mažoka švino,ir tu atrodai per daug gyvas,kad man patiktum Harry (Dirty Harry ) :)
 
Kada aš buvau berniukas,aš meldžiau Dievo duoti man arkly.Dievas į mano maldas neatsakė.Tada aš pavogiau arkly (immortals) Geras :)
 
Nu ką ,tu vis dar atrodai kaip idiotas ,tai geras ženklas (Jericho)
 
Argi buti mirusiu žymiai blogiau, nei buti niekuo ? (gossip Girl)
 
-Kas čia?- Steikas, - O jame kas nors yra ? - Karvė (Captain America: The First Avenger)
 
-Kaip ten Pelitas? ...-Dar vis mires (Horrible Bosses)
 
-Kur mano arbatinukas ? -Aš jį įsudaužiau .-Butum buves Twiterį- jau būtum žinojas (What's Your Number?)
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
)

program bulviakasis; type maisai = array [1..100] of integer; var A : maisai; n, nr, m, maxkr : integer; //n - ukininku skaicius, m - kiek telpa maisu {---------------procedura failo nuskaitmui-------------------------------------} procedure skaitymas; var i : integer; fd : text; begin assign(fd, 'Duom1.txt'); reset(fd); readln(fd, n, m); for i := 1 to n do readln(fd, A[i]); close(fd); end; {------------Skaičiavimas, kiek kartų Petras važiavo į laukus------------------} function kartai (mais : integer) : integer; var i : integer; begin kartai:=mais div m; if mais mod m <> 0 then kartai:=kartai+1; end; {----kiek kartų važiavo Petras į daugiausia bulvių prikasusio ūkininko lauką---} procedure Daugiausia (var nr : integer; var maxkr : integer); var i, max : integer; begin max:=A[1]; {Nustatoma pradine max reiksme} for i:=2 to n do begin If A[i] > max then begin max:=A[i]; nr:=i; {Ukininko numeris} end; end; maxkr:=max div m; If max mod m <> 0 then maxkr:=maxkr+1; end; {---------rezultatu spausdinimas-----------------------------------------------} procedure spausdinimas; var fr : text; i, kiek : integer; begin assign(fr, 'Rez1.txt'); rewrite(fr); for i := 1 to n do kiek += kartai(A[i]); writeln(fr, kiek); writeln(fr, A[nr], ' ', maxkr); close(fr); end; begin skaitymas; Daugiausia(nr, maxkr); spausdinimas; end.
patikrink ar veikia nežėjau dabar, šiaip gal dar yra klaidų, nes kodas prieš dagiau nei metus rašytas. Išsitaisyk jei yra. Na bet esmę turėtum suprast.

10 klasej, cia sitas kalbejimas, tas pats kas draugams anekdoto pasakojimas.

program kolekcija; const duom = 'U1duom.txt'; rez = 'U1rez.txt'; max = 100; type masyvas = array[1..100] of integer; var L, J, Lm, Jm : masyvas; n, m : integer; {-------------------procedura failo nuskaitymui--------------------------------} procedure skaitymas; var fd : text; i, nr, mr : integer; begin assign(fd, duom); reset(fd); readln(fd, n, m); for i := 1 to n do // nuskaitoma linos kolekcija begin read(fd, nr); L[nr] += 1; end; readln(fd); for i := 1 to m do // nuskaitoma jurgio kolekcija begin read(fd, mr); J[mr] += 1; end; close(fd); end; {--------------mainu procedura-------------------------------------------------} procedure mainai; var i, nr, yra : integer; begin for i := 1 to max do begin if (L[i] > 1) and (J[i] = 0) then begin nr := i; Lm[nr] := 1; end; if (J[i] > 1) and (L[i] = 0) then begin nr := i; Jm[nr] := 1; end; end; end; {---------------------procedura failo spausdinimui-----------------------------} procedure spausdinimas; var fr : text; i : integer; jt, lt : boolean; begin assign(fr, rez); rewrite(fr); jt := false; lt := false; for i := 1 to max do if Lm[i] = 1 then begin write(fr, i, ' '); lt := true; // ar lina turi zaisliuku mainymuisi end; if not lt then write(fr, '0'); writeln(fr); for i := 1 to max do if Jm[i] = 1 then begin write(fr, i, ' '); jt := true; // ar lina turi zaisliuku mainymuisi end; if not jt then write(fr, '0'); writeln(fr); for i := 1 to max do if (L[i] > 0) or (J[i] > 0) then write(fr, i, ' '); close(fr); end; begin skaitymas; mainai; spausdinimas; end.

vadovaujantis principu, kad geriausias vaistas nuo pagirių - nepadauginti iš vakaro, tai šiandien viskas liux! :rolleyes:

Švęsiu čia su draugais. Viską planuoti pradėjome jau lapkričio mėnesį. Na o esmė, tai bent jau sulaukti dvyliktos valandos ir nenusmigti veidu į mišrainės lėkštę :D

http://pedofilunera.lt/#citata-19
 
http://pedofilunera.lt/#citata-49
 
http://pedofilunera.lt/#citata-38
 
http://pedofilunera.lt/#citata-44
 
http://pedofilunera.lt/#citata-51
 
http://pedofilunera.lt/#citata-53
 
http://pedofilunera.lt/#citata-56
 
Perkėliau iš "Liepsnojančių temų". Tai politinė tema.
 
http://www.youtube.com/watch?v=M_4CkVrLRM8

program pelnas; type masyvas = array[1..12] of integer; var p, r, z : masyvas; i, n, suma, max, min, s, ma, m : longint; fd, fr : text; begin assign(fd, 'firma.txt'); reset(fd); readln(fd, n); s := 0; suma := 0; max := 0; min := 100000; for i := 1 to n do begin readln(fd, r[i], p[i]); suma += p[i] - r[i]; if max < (p[i] - r[i]) then begin ma := i; max := p[i] - r[i]; end; if (min > p[i] -r[i]) and (p[i] - r[i] > 0) then begin m := i; min := p[i] - r[i]; end; if (p[i] - r[i]) > 0 then s += 1; end; assign(fr, 'Pelnas.txt'); rewrite(fr); writeln(fr, suma); writeln(fr, ma, ' ', max); writeln(fr, m, ' ', min); writeln(fr, s); close(fr); close(fd); end.

program Pirkejas; type masyvas = array[1..100] of integer; var A : masyvas; t1, t2, N : integer; {------------------procedūra failo nuskaitymui---------------------------------} procedure skaitymas; var i : integer; fd : text; begin assign(fd, 'DUOM.TXT'); reset(fd); readln(fd, t1, t2, N); for i := 1to N do readln(fd, A[i]); close(fd); end; {-------funkcija rasti daugiausia prekiu turincio eiles numeriui nustatyti-----} function didpirk : integer; var i, max : integer; begin max := 0; for i := 1 to N do if max < A[i] then begin max := A[i]; didpirk := i; end; end; {F-ja, kuri skaičiuoja, po kiek sekundžių nurodytas pirkėjas atsiskaito kasoje-} function laikas (eilnr : integer) : integer; var i : integer; begin laikas := 0; for i := 1 to eilnr do laikas := laikas + A[i] * t1 + t2; end; {--------f-ja skaicuojanti kiek laiko sugaiš kasininkė su tuo pirkėju----------} function pardlaik (eilnr : integer) : integer; begin pardlaik := A[eilnr] * t1 + t2; end; {----------procedura rasymui i faila-------------------------------------------} procedure rasymas; var i : integer; fr : text; begin assign (fr, 'REZ.TXT'); rewrite(fr); write(fr, didpirk,' ', A[didpirk],' ', laikas(didpirk), ' ',pardlaik(didpirk)); close(fr); end; begin skaitymas; rasymas; end.