Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 12 из 71«1210111213147071»
Чертоги клана (Форум) » Таверна "Забытый чертог" » Общий зал » Просто общаемся (На любые темы)
Просто общаемся
ГрейдалинДата: Воскресенье, 20.12.2009, 21:12 | Сообщение # 111
Отец-основатель клана
Группа: Администраторы
Сообщений: 706
Награды: 2
Репутация: 12
Статус: Offline
Во во, слава Махалу, задумайся, не пугай родню. wink

 
ДрортДата: Воскресенье, 20.12.2009, 21:38 | Сообщение # 112
Бард
Группа: Родич
Сообщений: 528
Награды: 0
Репутация: 7
Статус: Offline
Ребят, я сейчас сварил себе чайку , сел спокойно и подумал...и первое мысль ,которая меня посетила, была : " Какая меня муха укусила?! Я в этом клане больше года , я с этими парнями так давно знаком, вместе не из одной жопы вылезали и я сейчас спокойно беру и ухожу!" И я понял ,что я сделал ошибку...простите, братья..я вас подвёл, но особенно жалко тех ребят , которых я к себе набрал...Слушайте, а можете и их в клан взять , всё гномы даже мен есть , страж и воин, хранитель рун....А что касается меня я действительно сглупил , причём по-страшному... знаете, когда я играл за "Дрорти" мне понравилось...можно я всё-таки попробую быть меном? И ещё раз, прошу прощенье , я и в правду сглупил не по-детски ....

Сообщение отредактировал Дрорт - Воскресенье, 20.12.2009, 21:39
 
ГрейдалинДата: Воскресенье, 20.12.2009, 21:44 | Сообщение # 113
Отец-основатель клана
Группа: Администраторы
Сообщений: 706
Награды: 2
Репутация: 12
Статус: Offline
Я понимаю что 500р на восстановление перса у тебя нет ?
Quote (Дрорт)
но особенно жалко тех ребят , которых я к себе набрал

Сынуля, ты там новый клан забацать успел ? Весь в папу... biggrin


 
ДрортДата: Воскресенье, 20.12.2009, 21:48 | Сообщение # 114
Бард
Группа: Родич
Сообщений: 528
Награды: 0
Репутация: 7
Статус: Offline
Ну вот видишь...чего сынуля натворил...я же говорю колы перепил smile

Добавлено (20.12.2009, 21:48)
---------------------------------------------
Ну так что делать-то будем?
А денюшки я на ОЛ откладываю...

Сообщение отредактировал Дрорт - Воскресенье, 20.12.2009, 21:49
 
ГрейдалинДата: Воскресенье, 20.12.2009, 21:53 | Сообщение # 115
Отец-основатель клана
Группа: Администраторы
Сообщений: 706
Награды: 2
Репутация: 12
Статус: Offline
Хмммм, есть одна мысль.

Братья и.... Братья. Поможем одному из старожил клана вернуться к нам ?
Предлагаю создать мобильный кошел в системе КИВИ (доступно вроде всем) и скинуть кто сколько может на востановление нашего юного брата!
Ваши За и против....


 
НаготДата: Воскресенье, 20.12.2009, 22:19 | Сообщение # 116
Рыцарь
Группа: Администраторы
Сообщений: 379
Награды: 0
Репутация: 8
Статус: Offline
Нате вам: biggrin
Program Lb8;
type zap=record
kol:integer;
ves:real;
end;
const n=3;
var f:file of zap;
a:array[1..n] of zap;
i,chislop,max_kol,kol,max_i_kol,max_i_ves,max_rav:integer;
sredkol,max_ves,srves:real;
begin
sredkol:=0;
chislop:=0;
kol:=0;
srves:=0;
assign(f,'input.txt');
rewrite(f);
for i:=1 to n do
begin
read(a[i].kol);
read(a[i].ves);
write(f,a[i]);
end;
close(f);
reset(f);
for i:=1 to 1 do
begin
read(f,a[i]);
max_kol:=a[1].kol;
max_ves:=a[1].ves;
end;
close(f);
reset(f);
for i:=1 to n do
begin
read(f,a[i]);
if (a[i].kol=1) and (a[i].ves<=30) then writeln('nomer passagira ves <=30 - ',i);
sredkol:=sredkol+a[i].kol;
if (a[i].kol=a[i+1].kol) and (abs(a[i].ves-a[i+1].ves)<=0.5)
then writeln('pas s odinak kol i raznichey v ves <= 0.5 - ',i,' i ',i+1);
kol:=kol+a[i].kol;
srves:=srves+a[i].ves;
if a[i].kol>max_kol then begin max_kol:=a[i].kol; max_i_kol:=i; end;
if a[i].ves>max_ves then begin max_ves:=a[i].ves; max_i_ves:=i; end;
end;
close(f);
srves:=srves/kol;
sredkol:=sredkol/n;
reset(f);
for i:=1 to n do
begin
read(f,a[i]);
if a[i].kol>sredkol then begin inc(chislop);
writeln('chislo pas chislo kol kotorih > sred = ',chislop);
end;
if abs((a[i].ves/a[i].kol)-srves)<=0.3 then writeln('nomer pas sr ves veshi <= 0.3 - ',i);
if (i=max_i_kol) and (i=max_i_ves) then writeln('samiy @taysholiy@ pas - ',i);
if a[i].kol=max_kol then max_rav:=i;
end;
close(f);
reset(f);
for i:=1 to n do
begin
read(f,a[i]);
if (a[max_i_kol].ves<=a[max_rav].ves) then begin writeln('e) - ',max_i_kol); break; end;
end;
close(f);
readln;
readln;
end.
 
НаготДата: Воскресенье, 20.12.2009, 22:19 | Сообщение # 117
Рыцарь
Группа: Администраторы
Сообщений: 379
Награды: 0
Репутация: 8
Статус: Offline
Вникайте smile
 
ДрортДата: Воскресенье, 20.12.2009, 22:23 | Сообщение # 118
Бард
Группа: Родич
Сообщений: 528
Награды: 0
Репутация: 7
Статус: Offline
wacko
 
НаготДата: Воскресенье, 20.12.2009, 22:25 | Сообщение # 119
Рыцарь
Группа: Администраторы
Сообщений: 379
Награды: 0
Репутация: 8
Статус: Offline
biggrin я это только шо писать закончил
 
ГрейдалинДата: Воскресенье, 20.12.2009, 22:26 | Сообщение # 120
Отец-основатель клана
Группа: Администраторы
Сообщений: 706
Награды: 2
Репутация: 12
Статус: Offline
Это автоответчик ? И где евро дырочка ? biggrin

 
Чертоги клана (Форум) » Таверна "Забытый чертог" » Общий зал » Просто общаемся (На любые темы)
Страница 12 из 71«1210111213147071»
Поиск:


Copyright © 2017 Клан Габилгатхол