BaSh_time

Pagaliau ir mano siuntinukas Rusijoje atsirado :rolleyes: :huh: , įdomų ar per atostogas dar sulauksiu pas save jo, ar reikės laukti ilgiau...

Blogiau ir būt negalėjo...

Reikia tikėtis :D

Kovo 1d. siuntinio ten dar nė kvapo :)

Domintų keitimai ir į kitus daiktus

Mano neregistruotas ir išsiųstas vasario 17d. vakar atėjo, o kitas išsiųstas kovo 1d. ir Rusijoj nerašo irgi nieko.

Gal kas gali parekomenduoti programą nuotraukoms redaguoti? Reikėtų nuotraukoms suteikti nestandartinę formą (kad nuotraukos forma būtų trikampis, apskritimas ir t.t.) ir galima būtų uždėti rėmelį.

3

Vistiek nepadėjo :D Kas blogai visoj programoj? program lyginimas; const R = 100; type Mas = array [1..R] of integer; var L, M : Mas; s, n, a, k, ats : integer; procedure skaityti (var L, M : Mas; s, n : integer); begin write ('Kiek skaičių bus lyginama? '); read (s); writeln ('Įveskite skaičus į pirmąjį masyvą'); for n := 1 to s do begin read (L[n]); end; writeln ('Įveskite skaičus į antrąjį masyvą'); for n := 1 to s do begin read (M[n]); end; end; function lygu (L, M : Mas; s : integer; var a : integer) : integer; var n : integer; begin for n := 1 to s do begin if L[n] = M[n] then

Ir kodėl neveikia šita funkcija dorai? :lol: nesupratu niekaip function lygu (L, M : Mas; var s : integer; n : integer; var a : integer) : integer; begin a := 1; for n := 1 to s do begin if L[n] <> M[n] then a := 0 else a := 1; lygu := a; end; end; Ji turi nustatyti ar L[n] ir M[n] yra lygūs, jeigu lygūs tada ats 1, jeigu nelygūs 0. S tai elementų skaičius masyvuose.

Įvedu labas, o išmeta bala abiejose procedūrose, kaip ir buvo pas mane :lol:

86444442*

iPod Nano 5th 8GB nedaug naudotas, neturi nė vieno įbrėžimo, todėl galima sakyti kaip naujas, ausinės nė karto nenaudotos. Pilna komplektacija, jeigu reikės foto rašykit. iPod touch siūlykite su nuotraukomis, kad matyčiau jo būklę. Taippat domina mainai į iPhone.

http://www.uglytrue.com/dead//6.JPG Skaudės :)

Klausk, siunčia kai kada ir į Lietuvą, bet būna kad ir nesiunčia

Ipod'o keitimas į kaip naują iPod Nano 5th nedomina? Nė vieno įbrėžimo, pilna komplektacija, naudotas labai nedaug, ypatingai saugotas.

Suspėjau ir aš per Tavo url užsiregint, laukiam naujienų dabar

Tokį iš ebay.com už 50lt galima gaut

program šifratorius; const R = 100; type Mas = array [1..R] of char; var A : Mas; n, i, s, k: integer; procedure simboliai (var A : Mas; var n : integer); begin writeln ('Įveskite simbolių einutę '); n := 0; while not Eoln and (n < R) do begin n := n + 1; read (A[n]); end; end; procedure rasyti (var A : Mas; var i, s, k : integer); begin s := 3; k := n div 4; if (n mod 4 = 0) then begin while (k >= 1) do begin write (A[s]); s := s + 1; write (A[s]); s := s - 3; write (A[s]); s := s + 1; write (A[s]); s := s + 5; k := k - 1; end; end; end; beg

Atradau, kad yra seka šiokia tokia čia, pagal ją ir padariau programą, bet meta dabar, kad peržengti rėžiai ir dar nežinau ką reikia daryti kai simbolių skaičius nesidalina iš 4, bet svarbiau dabar pirmąją išspręsti. Programa: program šifratorius; const R = 100; type Mas = array [1..R] of char; var A : Mas; n, i, s, k: integer; procedure simboliai (var A : Mas; var n : integer); begin writeln ('Įveskite simbolių einutę '); n := 0; while not Eoln and (n < R) do begin n := n + 1; read (A[n]); end; end; procedure rasyti (var A : Mas; var i, s, k : integer); begin i := length(A); s

Sveiki, užduotis: Parašykite programą, kurioje būtų panaudota procedūra, duotąjį tekstą užšifruojanti pagal tokį algoritmą: pirmasis simbolis sukeičiamas su trečiuoju, antrasis – su ketvirtuoju, penk¬tasis su septintuoju, šeštasis su aštuntuoju ir taip toliau. Keičiami visi simboliai, ne tik raidės. Pavyzdžiui, tekstas „NETEPSI – NEVAŽIUOSI“ užšifruojamas taip: „TENEI PSNE– ŽIVASIUO“. Padariau tiek, kaip reikia dabar spausdinti skaitmenis tokia tvarka? program šifratorius; const R = 100; type Mas = array [1..R] of char; var A : Mas; n: integer; procedure simboliai (var A : Mas; var n : int

5. 1lt

http://pigu.lt/sportas_laisvalaikis_turizm..._ball?id=390497

Nerodo nieko ten, tik http://app3.hongkongpost.com/ rodo, kad išvyko iš Hongkong

O jeigu registruotas siuntinys iškeliavo iš Hongkongo tai kurios šalies pašte laukti pranešimo, kad siunta gauta ir išsiųsta dar kartą į kitą paštą?