ProPlay.ru
  ГЛАВНАЯ    НОВОСТИ    СТАТЬИ    КОМАНДЫ    ДЕМКИ    VOD'ы    СТАВКИ    ТУРНИРЫ    КЛУБЫ    ФОРУМЫ    ГАЛЕРЕИ    РЕКЛАМА    САЙТ   
English Китайский
Забыли пароль?
Регистрация

     Расписание ProPlayTV
Мы ищем стримеров по League of Legends и DOTA2!
    Самые богатые
 ggtt 2664
 Hvostyn 2400
 GopaveC 2000
 rmn1x 2000
 Akon 1958
 razdavalochka 994
 CoolMast 700
 Devostatortk 606
 modify2h 600
 Boevik 400
    События ProPlay.ru

Сезон ставок The International 2015

    Голосование

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



    Counter-Strike: Global Offensive
Counter-Strike: Global Offensive #1
csgo.proplay.ru:27016 0/
Counter-Strike: Global Offensive #2
csgo.proplay.ru:27215 0/
    Репортажи
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

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

    Партнеры


Турниры ESL


    Нас можно найти тут:
vkontakte ProPlay.ru - Официальная группа
mirc Наш канал в IRC
Facebook Мы в Facebook
Twitter Мы в Twitter

    Будущие турниры

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



    Последние дневники
Казино вавада онлайн (1)
Online casino (4)
НУЖЕН СОВЕТ БРАБЛЕЯ (16)
СМОКЕРПУП (0)
мои соски упруги, а ваши ... (3)
Записки без смысла [5] (16)
Ф (1)

    Случайные галереи
sgUuu: Club 0-15

WhiteFаng: Susan_Coffey_2

SPo1LeR[oldschool]: Зенит Чемпион !

dratata: Мария Горбань


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

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


    Реклама
Marc Ecko's Getting Up: Contents Under Pressure, коды для Трансформеры: Битва за Кибертрон, продать игру Silent Hill 2, коды на Command & Conquer 4: Эпилог



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

Copyright © 2006-2011 www.proplay.ru. Все права защищены.
Полное или частичное использование материалов сайта www.proplay.ru возможно только с письменного разрешения редакции.