Frodo

Už (98 - 100) gauni 100%, 97 gauni 99%

Tai tada tikriausiai abu studijuosim ten pat Kiek taškų surinkai iš informatikos?

Informatika 100%, eina sau kaip gerai. Iš lietuvių labai susimoviau ir gavau 54

Iš pradžių rašai, jog ieškai investuotojų: O po to jau sakai, kad pinigų nereikia. Žiūriu nelabai moki priimt kritikos. Kiek metų, kad nėra tau laiko? Toks įspūdis susidaro, kad maždaug 15. Kiek pastebėjau, tai dažniausiai tokie pavadinimai :"Ieškome rimtų" ar "Rimtas projektas" arba "Vaikai nerašykite" parodo, jog autorius dar nėra pakankamai subrendęs (čia tik mano nuomonė)

34LT

Kiek laiko baterija?

Parduodu savo stacionarų PC. Techniniai duomenys DualCore AMD Athlon 64 X2, 2800 MHz (14 x 200) 5600+ Gigabyte GA-M57SLI-S4 RAM 2GB GeForce 7900 GS Kietasis Diskas 500GB Jeigu dar kokių nors duomenų reikia - klauskit. Tiesą pasakius, nežinau kiek dabar jis vertas, tad siūlykit savo variantus. EDIT: Parduotas

Bet žiūrėk, kad nebūtų kaip mano klasiokui. Iki egzamino jau liko nebedaug, o jis paprasčiausių programų su masyvais negali parašyt. Aš patarčiau išsispręst tuos uždavinius, kurie duodami per valstybinį.

Toks jausmas, jog nariai Chris ir kastutoks yra tas pats žmogus.

Jei sumokėtum, galėčiau padaryti paprastai + paaiškinčiau kas kaip

Labai neaiškiai parašei sąlygą. Bandžiau padaryt pagal tavo aprašymą. program parduotuve; const fduom = 'duom.txt'; frez = 'rez.txt'; Csuma = 6389; //Parduotuvės pradinė pinigų suma function KiekUzdirbo:integer; var input : text; kiek, kaina, suma : integer; begin suma := 0; assign (input, fduom); reset(input); while not eof (input) do begin readln (input, kiek, kaina); suma := suma + kiek * kaina; end; close(input); KiekUzdirbo := suma; end; proced

Šiek tiek patobulinau prieš tai esantį kodą program programa; var sk :longint; i, ilgis, d :longint; a:array[1..6] of byte; begin readln(sk); ilgis := 0; d := 1; while sk > 0 do begin ilgis := ilgis + 1; a[ilgis] := sk mod 10; sk := sk div 10; end; for i:= 1 to ilgis do begin if (a[i] <> 4) and (a[i]<> 7) then begin sk:= sk + a[i] * d; d := d * 10; end; end; writeln(sk); readln; end.

Sprendžiu matematikos, fizikos, informatikos mokyklinio kurso (1-12 klasių) uždavinius. Viską padarau greitai ir nebrangiai. Jei reikia, paaiškinu sprendimą. Kaina priklauso nuo uždavinių kiekio bei sunkumo. Dėl uždavinių rašykit į PM.

Parduodu Kindle 3 knygų skaitytuvą. Naudojau jį labai mažai - perskaičiau tik vieną "Catch me if you can" knygą. Knyga ir skaityklė man labai patiko. Parduodu šį nuostabų prietaisą, nes brolis irgi nusipirko šia skaityklę, tad vieną iš jų tenka atiduoti kitam... Keletas kindle nuotraukų: http://img713.imageshack.us/img713/1135/dscf1188p.th.jpghttp://img856.imageshack.us/img856/2544/dscf1187s.th.jpghttp://img845.imageshack.us/img845/8530/dscf1185k.th.jpghttp://img200.imageshack.us/img200/5457/dscf1183n.th.jpg http://img804.imageshack.us/img804/9964/dscf1182q.th.jpghttp://img218.imageshack

puslapis - http://kindle.moksliukas.net/ čia talpinsiu knygas skirtas kindle prietaisui (elektroninių knygų skaitytuvui). Greitu metu įdėsiu daugiau knygų. P.S. Kokių knygų labiau reikia? Parašykite ir aš jums įdėsiu

Nauja kaina : 25 + 5 (už siuntimą)

Perku Amazon gift card. Parašykite ką turit ir kiek už tai norėtumėte gauti. Atsiskaitymas - swed.

Daugiau žmonių nebereikia!

Jei vis dar reikia - parašyk AŽ

Geras pastebėjimas, dabar nemes klaidos. program pazymiai; var pazymys, suma, kiek, max, min:integer; vidurkis :real; begin Writeln ('Iveskite pazymius'); readln (pazymys); max := pazymys; min := pazymys; while ((pazymys > 0) and (pazymys <= 10)) do begin if pazymys < min then min := pazymys; if pazymys > max then max := pazymys; suma := pazymys + suma; kiek := kiek + 1; readln (pazymys); end; if (kiek <> 0) then begin vidurkis := suma / kiek; writeln; writeln ('Didziausias pazymys - ', max); wr

Beje, jei kam reikės pascal pagalbos - rašykit. Padėsiu jums parašyti kodą, bei paaiškinsiu kas kaip ir kodėl.

program pazymiai; var pazymys, suma, kiek, max, min:integer; vidurkis :real; begin Writeln ('Iveskite pazymius'); readln (pazymys); max := pazymys; min := pazymys; while ((pazymys > 0) and (pazymys <= 10)) do begin if pazymys < min then min := pazymys; if pazymys > max then max := pazymys; suma := pazymys + suma; kiek := kiek + 1; readln (pazymys); end; vidurkis := suma / kiek; writeln; writeln ('Didziausias pazymys - ', max); writeln ('Maziausias pazymys - ', min); writeln ('Vidurkis - ', vidurkis:6:2);

Parduodu Shutter Island knygą už 30LT 25LT + siuntimo išlaidos. Pirkau už £9,99. Aprašymas Reičelė Solando dingo kaip į vandenį. Ji ištrūko pro užrakintas kameros duris. Praėjo nepastebėta pro kelias apsaugos užkardas. Išėjo palikusi abi poras batų ir… paslaptingą skaičių seką ant popieriaus lapo. Du pareigūnai, atvykę tirti mistiško Reičelės Solando dingimo, netrukus pasijus izoliuoti saloje, kurią nuo žemyno visiškai atskirs didžiausia per tris dešimtmečius audra. Kol vėjas ir vanduo nenuplovė paskutinių Reičelės Solando pėdsakų, jie privalės įminti jos dingimo mįslę ir atskleisti pasla

Sveiki, turiu 2 naujus ne originalius BMW ženkliukus. Skersmuo 82mm., abu parduodu už 40LT + pašto siuntimo išlaidos. http://img822.imageshack.us/img822/3965/68999704.th.jpg http://img823.imageshack.us/img823/7253/12378198.th.jpg http://img824.imageshack.us/img824/9695/98861565.th.jpg

Už kiek parduotum Galaxy S?