-
Pranešimai
3.340 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
100%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
Visas BaSh_time turinys
-
Lietuviškuose puslapiuose bus lietuviškos reklamos, angliškuose puslapiuose bus angliškos ir t.t. pagal mane.
-
Turbūt pirmas variantas
-
Nėra ir neturėtų atsirasti
-
Tipo į Evo 4G nesideda SIM kortelė? :lol:
-
Investuok į mane
-
Sveiki, parduodama šių domenų rezervacija, visų pradinės kainos po 1lt, minimalus kėlimas 1lt. Aukciono pabaiga birželio 10d. 15:00. Rašykite domeno pavadinimą ir statomą sumą, atsiskaitymas swedbank arba PayPal. Jeigu aukcione niekas nedalyvaus, užsiregistruosiu pats šiuos domenus ir pardavinėsiu užregistruotus, taip kad pagriebti nepavyks šiemet ;)
-
ištrink visus esamus failus ftp ir tada kelk savo
-
Bet su tokio tipo ausinėm paklausius muzikos kitokių nebenorėsi :(
-
250lt duočiau ir aš :)
-
Creative Zen 2GB galiu pasiūlyti su odiniu dėklu, pilna komplektacija
-
Jeigu pažymėsi, kad nemokamas siuntimas, duos sumokėt ir už jį dar :)
-
Susitvarkiau jau viską
-
Nes parašo ne visus ne pirminius skaičius.
-
Bet negerai veikia, betkokiu atveju jau per vėlu taisyti :)
-
Padariau su tuo rėčiu ir pamačiau kad blogai veikia dabar :) o reikia šiandien užbaigt programą, bėda tokia: visada false meta, nes dabar nepatenka į funkciją, kadangi pirminis nėra true, bet jeigu funkcijos pradžioj parašai pirminis := true, tada visada jis true ir būna, ką patarsit daryti? program pirminiai; var x, p : longint; ats : boolean; function pirminis(p : longint) : boolean; var d, sn : longint; begin if pirminis = true then begin pirminis := (p mod 2 <> 0) or (p = 2); sn := round(sqrt(p)+1); d := 3; // tikrinamas dalumas ið nelyginiø skaièiø while pirminis and
-
Kokios talpos kortelė? Kaip GPS veikia?
-
Juokingai graudu, programa jau 5 minutes skaičiuoja rezultatą: program pirminiai; var x, p, i, s, ats : longint; function pirm (p, i, s : longint; var ats : longint): longint; begin ats := 1; if ats = 1 then begin for i := 1 to p do begin if p mod i = 0 then s := s + 1; end; if s = 2 then ats := 1 else ats := 0; end; pirm := ats; end; begin s := 0; for x := 1 to 10000 do begin p := sqr(x) + x + 17; ats := pirm (p, i, s, ats); end; if ats = 1 then writeln ('true'); if ats = 0 then writeln ('false'); end. Įmanoma ją sutvarkyt, kad greičiau veiktų ar nelabai? ;)
-
Ačiū, bandysiu parašyti tokią programą, paskutinė bėda su rekursijom, nemoku jų: Duota rekursinė funkcija: function Rek(x: integer): integer; var r: integer; begin if (x = 1) or (x = 0) then r := x else r := Rek(x - 2) + x - x mod 2; Rek := r end; Apskaičiuokite šias funkcijos reikšmes: a) Rek(2); b) Rek(4); c) Rek(5). Kiek kartų, įskaičiuojant ir pirmąjį kreipinį, bus kreipiamasi į funkciją Rek?
-
Atsižvelgiu, nes kitaip kam tas 0<=x<=15 skirtas?
-
Bandysiu pagal pirmą variantą daryt ir žiūrėt kas gausis, tik kad didžiausias skaičius pagal tą formulę yra 257, tai kam tie 10000 skirti? :)
-
Ką toliau daryti, kaip tikrinti pagal tą formulę nesuprantu niekaip :D program pirminiai; var a, b : integer; begin b := 0; for a := 1 to 10000 do begin if 10000 mod a = 0 then b := b + 1; end; if b = 2 then else end.