BaSh_time

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 ;)

Seniau nereikėjo, dabar vėl reikia, ne taip išsireiškiau gal, bet kas norės, tas supras ką norėjau parašyti.

gal nebespamink? postai čia neskaičiuojami vistiek

Vis dar reikia

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

20lt

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.