Здравствуйте. Я уже на протяжении долгого времени не могу решить, куда поступать. Выбор не могу сделать между БГУиР ПОИТ и БГУ ФПМИ. Может кто-нибудь объяснить, куда лучше идти?. И правда ли, что математики на ФПМИ слишком много и она практически не понадобится в жизни?

У каждого дела — запах особый . В булочной пахнет сгоревшею сдобой. Мясом протухшим пахнет мясник. Газом угарным пахнет печник.

Пахнет молочник прокисшей сметаной. Пахнут шахтеры горелым метаном. Пахнет газетчик как дохлая утка, Как парфюмерный отдел — проститутка.

Пахнет хирург неудачным наркозом. Пахнет доярка вечерним навозом. Содранной шкурой пахнет скорняк. Ассенизатор... Знаете как.

Пахнет кухарка капустою кислой. Пахнет сестра медицинская клизмой. Тещи, как правило, пахнут блинами, Все на таможне — большими деньгами.

Пахнет партиец как красные флаги. Нянечка пахнет подгузником Хагги. Пахнет сапожник густым гуталином, А популярный певец — кокаином.

Консул английский пахнет овсянкой, Школьный учитель разит валерьянкой. Пахнет несвежим солдат сапогом. Пахнет горячим браток утюгом.

Пахнет ревматик озокеритом. Пахнет любитель рывков динамитом. Килькой в томате пахнет турист, Йодом с зеленкой спортсмен альпинист.

Пахнет синяк перекисшим вином, Любитель анального секса — гумном.. Пахнет священник святою водою. Пахнут раввины кошерной едою.

Азбукой Морзе пахнет радист. А героином контрабандист. Нефтью разлитой пахнет моряк. Лишь программисты ... не пахнут никак!!!

Кто вам сказал, что не пахнут программы?! Этому ль с детства учили нас мамы? Пахнет программа бессонною ночью Пахнет начальником, рвущим вас в клочья

Здесь она пахнет хорошей зарплатой Нервной системы гигантской затратой Если ж кому-то не пахнет никак Значит он просто, простите, му — — ак.

"Лишь программисты не пахнут никак",- Подумать такое мог только дурак. "С"-кодировщик пахнет структурой, Visual Basic пахнет халтурой.

С++ пахнет полиморфизмом, Оракл пахнет бюрократизмом, Митингом нудным разит DBA, Пахнет Main Frame, словно старый еврей.

Web-программист пахнет связью случайной, Пахнут COBOL программисты отчаянием. Пахнет PASCALщик чем-то забытым, ACCESS разработчик — корытом разбитым.

Вместе все пахнут словно бардак - Тестеры только не пахнут никак! Это неправда! Понюхайте сами, Тестеры вечно пахнут клопами...

Только зайдешь к ним и глянешь вокруг - Так копошится какой-нибудь жук. Над программистом, как муха жужжит. - Тут не работает, там не стоит...

Даже админ отмахнуться не сможет, Запах жука ему встанет дороже. Не зная ни кода и не системы, Тестеры пахнут общей проблемой !

В запахе тестеров много "цветного"... Только у UNIX-ов нет никакого. ?Login? зеленый на черном мигает... Вот UNIX не пахнет и не воняет.

Нету у UNIX-ов запаха? Что Вы! Пахнет Solaris оберткою новой, Он же на Intel-e пахнет слюняво, Linux разит суррогатом с халявой,

От AIX запах админ-снобизма, Digital пахнет слегка укоризной, Пахнет HP как старушка весною, Silicon Grafics — игрушкой цветною,

Виндосы, кстати, противней воняют, Но про Винды пусть другой сочиняет.

Стих прочитал я вчера в "Анекдоте" - Что-то о запахах и о работе... Очень понравилось стихотворение, Глаз только режет одно упущение.

То ли Ассемблер поэт тот не знает, То ли системщиков не уважает... Может, и что-то еще — я не знаю, Но знать бы хотелось — а я чем воняю?

Раз не написано это в стихах - Может, знакомые скажут в словах? Сам себя нюхал — нанюхал лишь чих... Не получилось... Спрошу у других!

Эксперимент продолжался неделю. Как же знакомым своим надоел я: "Мне бы свой запах хотелось бы знать! Можешь понюхать и мне рассказать?"

Кто-то послал меня в светлые дали, Двое друзей чуть п##ды мне не дали... Кто-то закашлялся, кто-то чихал, Кто-то орал "Убирайся, нахал!".

В общем, услышал я тысячу мнений: Пивом, сосисками, водкой, печеньем, Виски, таранкою, кофе, духАми, Супом, вином, сигаретой, грибами...

Слово найти бы мне нужно одно, Чтобы вместило все это оно! Найдено слово моей половиной: "Знаю! Ассемблерщик пахнет МУЖЧИНОЙ!"

Ребят не могли бы вы подсказать какая ошибка в моем варианте написания двумерного дерева. Заранее спасибо.

var

b,a,t:array[0..100,0..100]of byte;

mini,minj,z,i,n,m,j,mid:longint;

function mi(a,b:longint):longint;

begin

if a<b then mi:=a else mi:=b;

end;

function ma(a,b:longint):longint;

begin

if a>b then ma:=a else ma:=b;

end;

procedure byild_y(no,l,r,noy,ly,ry:longint);

var

mid:longint;

begin

if ly=ry then

begin

if l=r then t[no,noy]:=a[l,ly]

else

t[no,noy]:=mi(t[no*2,noy],t[no*2+1,noy]);

end else

begin

mid:=(ly+ry) shr 1;

byild_y(no,l,r,noy*2,ly,mid);

byild_y(no,l,r,noy*2+1,mid+1,ry);

t[no,noy]:=mi(t[no,noy*2],t[no,noy*2+1]);

end;

end;

procedure byild_x(no,l,r:longint);

var

mid:longint;

begin

if l<>r then

begin

mid:=(l+r) shr 1;

byild_x(no*2,l,mid);

byild_x(no*2+1,mid+1,r);

exit;

end;

byild_y(no,l,r,1,1,m);

end;

procedure sum_x(no,noy,l,r,le,ri:longint);

var

mid:longint;

begin

if le>ri then exit;

if (l=le)and(r=ri) then

begin

z:=mi(z,t[noy,no]);

exit;

end;

mid:=(l+r) shr 1;

sum_x(no,noy*2,l,mid,le,mi(mid,ri));

sum_x(no,noy*2+1,mid+1,r,ma(le,mid+1),ri);

end;

procedure sum_y(no,l,r,le,ri:longint);

var

mid:longint;

begin

if le>ri then exit;

if (l=le)and(r=ri) then

begin

sum_x(no,1,1,n,mini+minj-l+1,n);

exit;

end;

mid:=(l+r) shr 1;

sum_y(no*2,l,mid,le,mi(ri,mid));

sum_y(no*2+1,mid+1,r,ma(le,mid+1),ri);

end;

begin

assign(input,'a.in');

reset(input);

assign(output,'a.out');

rewrite(output);

readln(n,m);

for i:=1 to n do

begin

for j:=1 to m do read(a[i,j]);

readln;

end;

byild_X(1,1,n);

for i:=1 to n do for j:=1 to m do

begin

mini:=i;

minj:=j;

z:=maxlongint;

sum_y(1,1,m,j,m);

b[i,j]:=z;

end;

end.

Всем привет =). Хотелось бы узнать кто и как решал задачи хорватской олимпиады ? И у кого сколько баллов?