VaidasV

Dar galima pridėt http://www.hostinger.lt/

Buvo prašyta, kad ištrauktų būtent su 5 skaičiais po Z, o šitas pattern'as ištrauks dalis, kurios turi nuo 1 ir daugiau skaičių (pasitestavimui: http://regexr.com?37qct). Galbūt reiktų pakeist taip: /Z\d{5}/ Pasitestavimui: http://regexr.com?37qcq

Aprašyme: Capacity 10,000mAh (actually 8000mAh) Tad nėra 10k :)

http://www.shorturl.com/ http://goo.gl/ http://is.gd/ ir t.t. Netingėk pasinaudot google :)

Dar praleidai tokius skaičius kaip 11,12,13,...,19, kurių galūnė ų

Manau šitas būdas galioja tik tiems, kurie talpina savo svetainę vps'e ar kokiame dedikuotame serveryje, kur galima jungtis per ssh, o jei naudojies hostingo paslaugomis, juk tokių dalykų nesuteikia ir vienintelis būdas importuoti .sql failą yra per PhpMyAdmin.

Su šia programa galėsi išskaidyt savo sql failą į norimo dydžio dalis.

Pirma: program staciakampis; var ilgis, plotis, plotas, perimetras: integer; begin Write('staciakampio ilgis: '); ReadLn(ilgis); Write('staciakampio plotis: '); ReadLn(plotis); plotas := ilgis * plotis; perimetras := ilgis * 2 + plotis * 2; WriteLn('Perimetras: ', perimetras); WriteLn('Plotas: ', plotas); ReadLn; end. Antra: program Programa; var x1, x2 : integer; begin Write('Pirmas skaicius: '); Readln(x1); Write('Antras skaicius: '); Readln(x2); if (x1 > x2) then WriteLn('Pakeltas laipniu pirmas: ',sqr(x1)) else WriteLn('Pakeltas laipniu antras: ',sqr(x2)); R

Turėtų veikti :) program Apskritimas; var xc, yc, //apskritimo centro koordinates xt, yt, //tasko koordinates R : integer; //spindulys at : real; //atstumas tarp tasku begin WriteLn('Apskritimo centro taskas'); Write('X: '); ReadLn(xc); Write('Y: '); ReadLn(yc); Write('Apskritimo spindulys: '); ReadLn(R); WriteLn('Tasko koordinates'); Write('X: '); ReadLn(xt); Write('Y: '); ReadLn(yt); at:= sqrt(sqr(xc-xt) + sqr(yc-yt)); if (at < R) then WriteLn('Taskas apskritimo viduje.') else WriteLn('Taskas uz apskritimo'); ReadLn(); end.

O jei tarkim pabandžius sukeist kabutes: vietoj viengubų kabučių rašyt dvigubas, o vietoj dvigubų viengubas? echo '<table width="100%"> <tr> <td width="33%">';

program Atbulas_skaicius; var skaitmuo: integer; skaicius, atbulas: longint; begin Write('Iveskite skaiciu: '); ReadLn(skaicius); atbulas := 0; while (skaicius > 0) do begin skaitmuo := skaicius mod 10; atbulas := atbulas * 10 + skaitmuo; skaicius := skaicius div 10; end; Write('Atbulas skaicius: '); WriteLn(atbulas); ReadLn(); end.

Manau, kad reikėtų ir šiokio tokio rūšiavimo (nuo pigiausio iki brangiausio, nuo brangiausio iki pigiausio, pagal pavadinimą ir pan.).