Sqx

Ne tau vienam :D

Jau kuris laikas kaip tai galima padaryti.

Kuo skiriasi ekonometrija nuo finansu ir draudimo matematikos?

100

Kažkodėl nelaukiu lietuvių rezultatų... :D

100 balu, o Dieve :D

Jo, ir man paskutinė užduotis pasirodė sunki, pasilikau daugiau kaip valandą jai ir tik likus 15 min. sugalvojai kaip ją spręsti ir aišku nieko nespėjau :D Na bet už nuskaitymą, apskričių radimą bei įrašu tipus turėčiau gauti taškų, tai vis šis tas. Beje, jeigu parašiau rašymo procedūrą, tačiau ji rašo kintamuosius, kuriu nespėjau apskaičiuoti (vietoj jų rašo 0), už tai duoda taškų? :D

Per internet explorer eik, nes man su chrome irgi neveikia

Pascal: program skaiciu_daluumas; const cmin=1000; cmax=9999; var a,b,c,d,i,rezultatas:integer; begin rezultatas:=0; for i:=cmin to cmax do begin a:=i div 1000; b:=i mod 1000 div 100; c:=i mod 100 div 10; d:=i mod 10; if (a+b+c+d) mod 3=0 then rezultatas:=rezultatas+1; end; end.

Čia punktas iš VBE programos, tai reiškia, kad reikia tiesiog mokėti naudoti parametrus, tačiau nemanau, jog neturėtų atimti taškų, kai tam tikrose procedūrose jų nepanaudosi. Pavyzdžiui, žiūrint į 2010 m. vertinimo instrukcija, niekur neminima, kad atimami taškai: http://nec.lt/failai/1723_IT_-1-vert-2010.pdf

Čia tiesiog 2010 m. pavyzdinės užduotys.

Aisku, nebuvau dar tokio uzrasymo mates.

Kaip suprast sita vieta? Ka tas += reiskia?

Mano sprendimas: program zirniai; {----------------------------------Konstantos----------------------------------} const cDuom='Z1.txt'; cRez='Z1rez.txt'; cMax=100; {----------------------------------Tipai---------------------------------------} type masyvas=array [1..cMax] of integer; {-------------------------------Globalieji kintamieji--------------------------} var N,N1,N2, //Pirkejai(N), 1kg pakuotes(N1), 2kg pakuotes(N2) M1,M2, //Nupirktas kiekis 1kg (M1) ir 2kg (M2) pakuociu kiek, //Kiek pirkej

Pabandyk http://programavimopamokos.net/

20% taškų.

program varzybos; type tbegikas=record Vardas:string[20]; minutes:integer; sekundes:integer; end; mas=array[1..50] of tbegikas; var begikas,A:mas; nr:integer; procedure rikiavimas(var m:mas;n:integer); var i,j:integer; laik:tbegikas; begin for i:=1 to n do for j:=1 to n-i do if m[j].minutes*60+m[j].sekundes>m[j+1].minutes*60+m[j+1].sekundes then begin laik:=m[j]; m[j]:=m[j+1]; m[j+1]:=laik; end; end; procedure skaitymas; var i,j,z,sk,k:integer; d:text; begin nr:=0; assig

Duomenu faile vardams skyrei tik 19 poziciju, nors tavo vardo tipas string[20].

Tokio dalyko dar negirdejau, cia rimtai gali buti tiesa?

16% tasku.

Tikrai teisingas.

4 buna, kai istraukti skaiciai 3 ir 1 arba 2 ir 2 arba 1 ir 3, todel P(3)=0,3 P(1)=0,2 p(2)=0,4 Taigi:P(3)*P(1)+P(2)*P(2)+P(1)*P(3)=0,3*0,2+0,4*0,4+0,2*0,3=0,28

Atvirksciai man rodos, pataisykit, jei klystu.

0,28

http://nec.lt/failai/3395_2013_MAT-pvz-vert.pdf