|
|
#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 |
[пожаловаться]
|
|
чтобы постепенно по перемен вращения в чайнике воды кагда афтар потставляет рот полезняшечья жыдкость текет по водяному насосу, переходя в полезняшечью трубку и тем самым стекая афтору в рот свежая порция гавна! 
|
|
|
|
#8
Hell Yeah [X_x] @ 24.09.09 10:52 |
[пожаловаться]
|
|
короче, эта прога находит месяц, в котором средняя температура минимально отклоняется от годовой. 
|
|
|
| Reply | | | |
|
|
|
следовательно винамп это это операционная система 
![AR4ER [Michael Jackson Forever in my heart]: Моя любимая обоина.](/images/users/gallery/448/161974_s.jpg)
![AR4ER [Michael Jackson Forever in my heart]: Virtus.pro the BEST IN RUSSIA!](/images/users/gallery/448/164631_s.jpg)
![AR4ER [Michael Jackson Forever in my heart]: тёлка с игромира 2014](/images/users/gallery/448/341511_s.jpg)
![AR4ER [Michael Jackson Forever in my heart]: Одна из любимых порнозвёздочек...;)](/images/users/gallery/448/184440_s.jpg)