genemy

для таких случаев есть услуга VPN объединяется несколько точек по городу/республике в сетку, между точками трафик не считается

этого я не знаю если Вы про ETTH от СТК, то да будет если про Бурнет, то у них свои тарифы, нужно у них спрашивать ...

приказ на подписи

нужно в комнате прислуги найти фотку кухни

с 15 июля 2009 года стоимость внутреннего трафика 5 коп/мегабайт Один приказ будет по введению внутрисетевого трафика и снижению тарифа на анлим. Цены пока неизвестны.

ВМКСиС рулит

вот это зачем ? у меня ни дельфи ни паскаля нету

SxLvn, у вас в коде полная каша где сортировка то ? примерно должно быть так писал прямо тут, не проверял ) var tmp_stud : stud; // .... for i:=1 to y do if a[i].fam[1]='o' then begin x := 0; for j := i to у do if a[j].fam[1]='o' and a[j].nomer > x then begin x := a[j].nomer; k := j; end; if k <> i then begin tmp_stud := a[i]; a[i] := a[k]; a[k] := tmp_stud; end; end; // тут вывод

Drutsa, всего наилучшего!

unit bmpread; {процедуры для работы с Bmp} interface type artype = array[0..0]of byte; arptr = ^artype; bmFileHeader = record {заголовок файла} Typf : word; {сигнатура } Size : longint; {длина файла в байтах} Res1 : word; {зарезервировано} Res2 : word; {зарезервировано} OfBm : longint; {смещение изображения в байтах (1078)} end; bmInfoHeader = record {информационный заголовок} Size : longint; {длина заголовка в байтах (40)} Widt : longint; {ширина изображения (в точках)} Heig : longint; {высота изображения (в точках)} Plan : word; {число плоскостей (1)} BitC : word; {глубина цвета (бит на точку) (8)} Comp : longint; {тип компрессии (0 - нет)} SizI : longint; {размер изображения в байтах} XppM : longint; {горизонтальное разрешение} {(точек на метр - обычно 0)} YppM : longint; {вертикальное разрешение} {(точек на метр - обычно 0)} NCoL : longint; {число цветов} {(если максимально допустимое - 0)} NCoI : longint; {число основных цветов} end; bmHeader = record {полный заголовок файла} f : bmFileHeader; {заголовок файла} i : bmInfoHeader; {информационный заголовок} p : array[0..255,0..3]of byte; {таблица палитры} end; bmhptr = ^bmHeader; procedure ReadBMP(image:arptr; {массив с изображением} xim,yim:word; {размеры} pal:arptr; {палитра} filename:string); {имя файла} {чтение изображения из Bmp-файла} procedure ReadBMPheader(header:bmhptr;filename:string); {чтение заголовка Bmp-файла} implementation {$R-} {чтение изображения из Bmp-файла} procedure ReadBMP(image:arptr; xim,yim:word; pal:arptr; filename:string); var h : bmHeader; i : integer; bmpfile : file; s : longint; begin assign(bmpfile,filename); reset(bmpfile,1); blockread(bmpfile,h,sizeof(h)); {чтение заголовка} for i := 0 to yim-1 do begin {построчное чтение} blockread(bmpfile,image^[(yim-i-1)*xim],xim); if (xim mod 4) <> 0 then blockread(bmpfile,s,4 - (xim mod 4)); end; close(bmpfile); for i := 0 to 255 do begin {преобразование палитры} pal^[i*3+2] := h.p[i,0] shr 2; {синий} pal^[i*3+1] := h.p[i,1] shr 2; {зеленый} pal^[i*3+0] := h.p[i,2] shr 2; {красный} end; end; {чтение заголовка Bmp-файла} procedure ReadBMPheader(header:bmhptr;filename:string); var bmpfile:file; begin assign(bmpfile,filename); reset(bmpfile,1); blockread(bmpfile,header^,sizeof(header^)); close(bmpfile); end; end.

а не пробывал выйти по старинке ?

бред какой то это на ранжурова ?

http://bur.sibirtelecom.ru/?page188

с 50 до 100 м за 3р

возможно это timestamp to_date('1970-01-01','YYYY-MM-DD')+1238042515/86400

не нужно раньше времени панику наводить об исключении из бесплатных диапазонов будет сообщено задолго до самого исключения

мобильные операторы тарифицируют весь трафик там нет понятий внутренний/внешний

новые тарифные планы уже доступны в личном кабинете

"Трасса 64" (тарифный план), ежемесячно 550,00 "Трасса 128" (тарифный план), ежемесячно 675,00 "Трасса 256" (тарифный план), ежемесячно 1 000,00 "Трасса 512" (тарифный план), ежемесячно 2 000,00 "Трасса 1024" (тарифный план), ежемесячно 2 700,00 "Трасса 2048" (тарифный план), ежемесячно 3 500,00

круто

с нового года доступ с внешки закрыт даже на форум

Ваш ip и название машины пуск > выполнить > cmd > ipconfig -all

agir2000 нет не хочу, я один свой инет юзаю )

agir2000 у меня как раз дома сеть, в которую включен мой модем

я думаю все же лучше указать Source IP / Source Netmask навсякий пожарный так же нужно зайти в LAN Clients и добавить себя