dzodzo

šioje grupėje žiūrėk https://www.facebook.com/groups/870008919681333/878375145511377/

Negalima, nes perskaitys tik viena skaičių, o reikia, kad skaitytu K kiekį skaičių. Buvau sugalvojes ta bajeri, kad readln(f), bet rasydavau tik readln; pamirses (f) pridėt išsprendžiau va taip: <..> read(f, a[j]); if a[j] mod 2 = 0 then d[i].lyg:=d[i].lyg + a[j] else d[i].nelyg:=d[i].nelyg + a[j]; end; for z:=1 to 1 do readln(f); end; <..> Grezdiškai, bet bent jau veikia :D

Jau išsprendžiau šitą, dabar prie antro sedžiu uždavinio :D Meta klaida, blogas skaičiau formatas ir kas keisčiausiai, jei vietoj N įrašau skaičių 1, tada veikia, bet tik pirma eilute skaito, jei N, tada blogas skaičiaus formatas, kaip suprantu, neperšoka kiton eilute.. program Noname5; type Vard = string[10]; Dievai = record vard: Vard; // Dievo vardas lyg:integer; // ismesta lyginiu aukuciu suma nelyg: integer // ismesta nelyginiu aukuciu suma end; type Dievas = array[1..50] of Dievai; type Kauliukai = ar

Tai kaip padaryti, kad skaitytu eilute nuo trečio skaitmens ir peršoktu naujon, kai baigias eilute ?

Labas, yra čia galinčių išspręsti 1 praktinę užduotį su komanda? http://www.nec.lt/failai/2730_IT-1-2012.pdf program Noname4; type Zaidejai = record nr, // zaidejo numeris zmin, // zaista minuciu smin: integer; //sedeta minuciu end; type komanda = array[1..9999] of zaidejai; var z : komanda; f :text; n, j, i, l // laiku skaicius :integer; begin assign(f, 'U1.txt'); reset(f); readln(f, n); for i:=1 to n do read(f, z[i].nr, l); close(f); Readln; end. Va mano pradžia ir pakimbu, nežinau kas toliau

Iš kur gauti 2012m. VBE praktinių užduočių sprendimus ? Niekur nerandu ...

trečias

Ar pakanka verslo liudijimas ebay prekybai ?

Kas bus tokiu atveju jei reklamos skydeliai patinkantis bus iš keturių skirtingų vartotojų ? t.y jei Leaderboard: 728 x 90 patiks vieno vartotojo, o kito patiks Inline rectangle: 300 x 250

3

Failas montuojant ir tiek, ant jos kelių win7, o rodo torrent su winXP. Bet, taip, failas ir bajeris čia geras :D

Šaltinis: http://www.lrt.lt/naujienos/mokslas_ir_it/1/41024/mokslo_populiarintojas_d._mulleris_vadoveliu_era_baigesi http://i.imgur.com/B2kGGWb.jpg Vadovėliai mokyklose ir universitetuose tampa atgyvena. Taip teigė konferencijoje „Login“ viešėjęs mokslo populiarintojas fizikas dr. Derekas Mulleris. „Vadovėlių era baigėsi, nes dėl šiuolaikinių technologijų mes pasiekiame neišsemiamus informacijos klodus. Mokytojas turi padėti suprasti ir kritiškai atrinkti pateiktą informaciją, o ne paimti vadovėlį ir sakyti: „Štai vadovėlis, dabar jus išmokysiu tik tai, kas jame parašyta“, – išskirtiniame

50 LTL

30 LT

Naudoji ciklą for, tikrinti ar lyginiais skaičiai gali pvz: x mod 2 = 0 Pasirašyk viską paprastai, o vėliau įkelsi į procedurą ir padarysi kreipinį

20 LT

Labas, Parduodu plastikinį įdėkliuką iPhone 4 / 4s telefonui. Pradinė kaina: 1 LTL Min: 1 LTL Pirk dabar: 20 LTL Siuntimas +3 LTL http://pasteboard.co/1BYPTneI.png Laimėtojas praėjus 24 val. po paskutinio statymo.

program kedes; var n, k, s, i : integer; begin Write('iveskite kiek bus eiliu: '); ReadLn(n); Write ('iveskite kiek kedziu bus pirmoje eileje: '); ReadLn(k); s:=0; for i:=1 to n do begin s:=s+k; WriteLn (i,' eileje: ', k ,' kedziu'); k:=k+2; end; writeln('Is viso reiks kedziu ', s); Readln; end.

program kedes; var n, k, s, i : integer; begin Write('iveskite kiek bus eiliu: '); ReadLn(n); Write ('iveskite kiek kedziu bus pirmoje eileje: '); ReadLn(k); for i:=1 to n do begin if i > 1 then k:=k+2; WriteLn (i,' eileje: ', k ,' kedziu'); end; Readln; end. Per daug negalvodamas tiesiog pridėčiau if

Labas, Perku backlinkus, domina 1-3 mėnesių laikotarpiams. PR3-PR7 Susisiekti su kainomis AŽ

Labas, Reikia 4 x SEO straipsnių anglų kalba. Jei turite galimybę, tai ir talpinimo reiktu. Su vieno žodžio bei talpinimo kaina į AŽ

1)Aš išvykstu iš: Vilniaus 2)Vykstu į: Kopenhaga 3)Kada išvykstate: Balandžio 12 - 14 d. 4)Kelionės trukmė: 2-3 dienos 5)Skrendu į vieną pusę: Ne 6)Domina skrydžiai su persedimais: Ne

Labas, Reikia parašyti kalbą pagal planą 12kl. įskaitai. Susisiekti AŽ

Labas, Skelbiu aukcioną domenui gifai.net Pradinė: 1LT Min: 1LT 48val. po paskutinio statymo http://pasteboard.co/YgXCiY3.png