night1

Na į klasikinį Mustangą tai tikrai dujos nelabai, bet į naujesnių metų kodėl gi ne.

laukiu AZ, tik puikiai ismanantys programavima su darbu pavyzdziais.

kaip tuo bugu pasinaudoti?

Parduodu domena, registruotas iv.lt galioja iki lapkricio

atiduodu uz 18lt

galesiu prideti nuorodu trumpinimo sistema su dizainu

Kreiptis PM.

duomenis issaugot taip:

4 13 Jonas		   Artojas		//A[1]
2 51 Petras		  Melzejas	   //A[2]
3 71 Anupras		Girininkas	 //A[3]
1 42 Kazimieras	 Gaspadorius  //A[4]
6 34 Donce		   Sestas		 //A[5]
1 12 Kulverstukas  Padejejas	//A[6]

Turi butu sulygiuoti

o gal eina kaip nors ta duomenu baze is pvz anglono programos istraukti?

1 uzdavinys:

program Bevarde3;
type masyvas=array[1..999] of integer;
var i, x, y, t, s, kiekis : integer;
M : masyvas;
begin
kiekis:=0;
WriteLn('Idomus skaiciai');
for i:=1 to 999 do begin
s:=i;
while s > 0 do begin
t:=s mod 10;
x:=x + t * t * t;
s:=s div 10;
end;
if x = i then begin
	kiekis:=kiekis + 1;
	M[kiekis]:=i;
end;
x:=0;

end;
WriteLn('Tokie skaiciai: ');
for i:=1 to kiekis do
WriteLn(M[i]);
WriteLn('Is viso tokius skaiciu: ', kiekis);
ReadLn;
end.

Analogiska antras uzdavinys:

program Bevarde3;
type masyvas=array[1..999] of integer;
var i, x, y, t, s, kiekis : integer;
M : masyvas;
begin
kiekis:=0;
WriteLn('Idomus skaiciai');
for i:=100 to 9999 do begin
s:=i;
while s > 0 do begin
t:=s mod 10;
x:=x + t;
s:=s div 10;
end;
if (x * x * x * x) = i then begin
	kiekis:=kiekis + 1;
	M[kiekis]:=i;
end;
x:=0;

end;
WriteLn('Tokie skaiciai: ');
for i:=1 to kiekis do
WriteLn(M[i]);
WriteLn('Is viso tokius skaiciu: ', kiekis);
ReadLn;
end.

Jei netingesiu isspresiu ir 3, gan lengvas pamastyk ir pats :)

stai programa

program lalala;
type mas=array[1..100] of integer;
 va = record
   kiek: integer;
   kokios: mas;
 end;
mas1 = array[1..100] of va;
var X: mas1;
i, n, j: integer;
f, g: text;
v: integer;
c, b: real;
r: real;

begin
Assign(f, 'duom.txt'); Reset(f);
Assign(g, 'rez.txt'); Rewrite(g);
ReadLn(f,n);
for i := 1 to n do begin
	Read(f, X[i].kiek);
	for j := 1 to X[i].kiek do
		Read(f, X[i].kokios[j]);
	ReadLn(f);
end;
r := 0;
for i:=1 to n do begin
  c:=0;
  b:=0;
  for j := 1 to X[i].kiek do begin
	v:=X[i].kokios[j];
	c:=c + 1 / v;
  end;
  b := 1 / c; 
  r := r + b; 
end;
Write(g,  r:0:2);	
  Close(f);
  Close(g);
end.

Turiu samsunga dual sim, yra spec mygtukas perjungti kortelem ir akimirksiu perjungia, daug naudojamas, kolkas jokiu gedimu

As taip pat gavau spamo i el pasta

101

nedarom offtopic

Parduodu uz 80lt galima deretis

atsiskaitymas banku

*

*

www.eadresas.lt

Domenas registruotas iv.lt

Siūlau už 80lt.

Susidomėję PM.

Sveiki, kaip atkoduoti info esančią faile, kurio galūnė .dic ?

...

Su laiku indeksuos daugiau, talpink nuorodą į įvairius katalogus, pasidaryk sitemap ir įkelk į google webmasters tools. Čia elementarūs dalykai kuriuos būtina įvykdyti.

O kam reikalingas tas google webmasters toolsas?

...

Parduota.

Sveiki, o kaip manot ar googlei patinka lietuviškos raidės adrese? Pvz: www.adresas.lt/pažintys ar be lietuviškų geriau www.adresas.lt/pazintys

?

Ačiū už atsakymus

Tai niekas nežinot? :) Kokios jūsų nuomonės?

Sveiki, o kaip manot ar googlei patinka lietuviškos raidės adrese? Pvz: www.adresas.lt/pažintys ar be lietuviškų geriau www.adresas.lt/pazintys

?

Ačiū už atsakymus

Ir man jau galite pašalinti ^_^

11,2Lt

Sveiki, parduodama 120x60 reklama M.o.b.a.i.lt(be tasku) portale

Lankomumas: http://www.hey.lt/details.php?id=mobailt

Kaina butu 11.2lt/men arba 7.2lt/sav.

Atsiskaitymas banku

Jeigu domina: PM