ProPlay.ru
  主要    资 讯    文章        所录像    VOD's    赌注    比赛    论坛    画廊    关于   
Русский English
忘记密码
Регистрация

    最富有
 ggtt 2664
 Hvostyn 2400
 GopaveC 2000
 rmn1x 2000
 Akon 1958
 razdavalochka 994
 CoolMast 700
 Devostatortk 606
 modify2h 600
 Boevik 400
    投票

The Internaitonal 2015 был
Лучше предыдуших
Хуже предыдущих
Такой же



    覆盖面
SLTV StarSeries 6: Репортаж
SLTV StarSeries V: CS Global Offensive
Рейтинг ProPlay.ru: Январь 2013
Fnatic FragOut CS:GO League
SLTV StarSeries #4 CS:GO
SLTV Star Series #3: Репортаж
GosuLeague #3: Репортаж
SLTV Star Series #2: Репортаж
The Premier League Season 2: Репортаж
36ON.RU BATTLE CITY: Плей-офф
Fantasy Football - Евро 2012: Лига ProPlay.ru
Rising Stars Challenge
36ON.RU BATTLE CITY: Групповой этап
FnaticRC CS League: Групповой этап
It's Gosu's Monthly Madness: 2 сезон
36ON.RU BATTLE CITY: 2й квалификационный тур
The Premier League: 2 cезон
Fantasy Football - UEFA Champions League лига ProPlay.ru
36ON.RU BATTLE CITY: 1й квалификационный тур
36ON.RU BATTLE CITY: Составы команд


    做广告


    #1   Hell Yeah [X_x] @ 24.09.09 10:32 [пожаловаться]   

Кто скажет, для чего нужна эта программа - получит 50р на счёт.

Program test;

var
i,j,a,b,god,c,mini,number:integer;
mas:array[1..12,1..31] of integer;
min:array[1..12] of integer;
month;array[1..12] of integer;
Begin
begin
a:=0;
for i:=1 to 31 do
for j:=1 to 12 do
begin
a:=a+mas[i,j];
end;
god:=a/365;
for j:=1 to 12 do
begin
if j mod 2>0 or j=8 then n=31
else n=30;
if j=2 then n=28;
for i:=1 to n do
begin
b:=b+mas[i,j];
min[j]:=b;
end;
end;
n=0;
for i:=1 to 12 do
begin
if i mod 2>0 or i=8 then n=31
else n=30;
if i=2 then n=28;
min[j]:=min[j]/n;
end;
for i:=1 to 12 do
begin
c:=abs(god-min[i]);
month[i]:=c;
end;
mini:=month[1];
for i:=1 to 12 do
if month[i]
number:=i;
end;
write(number);
end.
    #2   dAnAteLo-moodq @ 24.09.09 10:34 [пожаловаться]   
чтобы постепенно по перемен вращения в чайнике воды кагда афтар потставляет рот полезняшечья жыдкость текет по водяному насосу, переходя в полезняшечью трубку и тем самым стекая афтору в рот свежая порция гавна! Arrow
    #3   Полезняшкuн @ 24.09.09 10:35 [пожаловаться]   
это винамп Shocked
давай 50р на счёт 36484 Shocked
    #4   Hell Yeah [X_x] @ 24.09.09 10:36 [пожаловаться]   
#3 неправда.
    #5   Полезняшкuн @ 24.09.09 10:38 [пожаловаться]   
#4 тогда календарь Shocked
    #6   rpa4sh0kedaH4 @ 24.09.09 10:42 [пожаловаться]   
дата время Shocked Shocked Shocked Shocked Surprised Shocked
    #7   Jey[madebl] @ 24.09.09 10:47 [пожаловаться]   
эвремя там нет, это в про колво дней в месяце как я понял
    #8   Hell Yeah [X_x] @ 24.09.09 10:52 [пожаловаться]   
короче, эта прога находит месяц, в котором средняя температура минимально отклоняется от годовой. Razz
    #9   UNэстетик @ 24.09.09 10:53 [пожаловаться]   
#8 ты синоптик?
    #10   Чепушило a.k.a. рыжий @ 24.09.09 10:55 [пожаловаться]   
без винампа ничего не работает Confusedследовательно винамп это это операционная система Surprised Shocked
    #11   Hell Yeah [X_x] @ 24.09.09 10:55 [пожаловаться]   
#9 не, это я к егэ готовлюсь по информатике.
    #12   ShadowFr @ 24.09.09 11:00 [пожаловаться]   
Arrow
    #13   bRAZILR_ @ 24.09.09 11:02 [пожаловаться]   
Shocked Shocked Shocked
    #14   m1Gh fan of ABAHrAPq OMCK @ 24.09.09 11:08 [пожаловаться]   
3648ыN` pascal Mad
    #15   ч0ткий_браблеевец @ 24.09.09 11:38 [пожаловаться]   
pascal
з.ы. на семки кинь
    #16   Aim4ik_nia43M @ 24.09.09 11:44 [пожаловаться]   
нашел в скрипте ошибку? сообщи редакции!

    Ответить
Very Happy Smile Sad Surprised Shocked Confused Cool Laughing Mad Razz Embarassed Crying or Very sad Evil or Very Mad Twisted Evil Rolling Eyes Wink Exclamation Question Idea Arrow

Новая тема
Подписаться

    Event




    未来比赛

Добавить турнир


    最新日志
Записки без смысла [5] (23)
Ф (2)
Я вернулась. Olya (12)
Китайская улица (0)
Окей. (3)
Ранетки: Новая любовь. Ча... (5)
Кадровые перестановки (7)

    图集
WhiteFаng: O_gods

beateR: ДС

c1q3: дотка ван

c1q3: мепхака нет О_О


    Ищем авторов!

ProPlay.ru ищет новых авторов. Прочитайте "Памятку для авторов" и, если заинтересовались, пишите нам miker@proplay.ru


    做广告



Rambler's Top100
Яндекс цитирования Rambler's Top100

Copyright © 2006-2007 www.proplay.ru. 版权所有
只有经过 www.proplay.ru 网站编辑部书面同意才可全部或部分使用本网站内容

网站上发现错误 通知编辑部。