Просто общаемся - Страница 12 - Чертоги клана (Форум)

Просто общаемся

Грейдалин

Дата: Воскресенье, 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

Нате вам:

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.