Предмет: География, автор: Аноним

как пастбищное скотоводство влияет на природные комплексы?​

Ответы

Автор ответа: gguid
1
коровы выделяют углекислый газ.
животные пьют значительную часть всей воды.1/3 всей почвы выделена животным, после животных почва находится не в лучшем состоянии. утилизация продуктов приводит к увеличению отходов.
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Русский язык, автор: vanya20061
Слова: пальто, ясно, кожа, ключ, деньки, руль, стулья, приём, енот
Записать слова в соответствующий столбик, сравни в этих словах количество звуков и букв
1) кол-во букв равно кол-ву звуков
2) букв больше чем звуков
3) букв меньше, чем звуков
1 год назад
Предмет: Английский язык, автор: helemendiktatj
Помогите с переводом ! У меня есть друг его зову Юра, ему 10 лет у него отличное настроение. Он живет в России в Великом Новгороде. Он ученик 3 класса гимназии№ 2. Он учится на отлично , его любимый урок -математика. Он хочет быть инженером. Он умеет бегать, прыгать, но не умеет плавать. Он очень любит кушать фрукты и пить молоко. У него есть домашнее животное-кот. Его любимое время года зима, потому что он любит кататься на лыжах. У него много друзей. Он любит спорт, любит читать и кататься на велосипеде .Я люблю моего друга потому что он самый добрый и отзывчивый.
1 год назад
Предмет: Русский язык, автор: SonyaSonya56
Придумайте пожалуйста какую- нибудь историю "Невероятное приключение".
Мне нужен только смысл, а сам рассказ я придумаю. Заранее спасибо.
1 год назад
Предмет: Биология, автор: studygi
Помогите, пожалуйста, с Биологией)) Заранее спасибо))
8 лет назад
Предмет: Информатика, автор: PNaty
проблема заключается в том что на месте, которое выделено "//...//" PascalABC.Net говорит, что там ошибка, пожалуйста помогите, укажите ошибку и если есть возможность её исправить, это срочно
program Zmeya;
Uses graphabc, events,timers;

const
r=5 ;
d=7;

type
TDirection = (None, Left, Right, Up, Down);

var x,t,y,i,z,xr,yr,prin1,prin2,prin3,prin4,prin5,k,s4et,prin6: integer;
Direction :TDirection;
xs,ys,bufx,bufy:array[1..200]of integer;


procedure shar3;
begin
SetBrushColor(clYellow);
circle(xs[k],ys[k],r);
end;

procedure Circl;
begin
SetBrushColor(clBlack);
circle(x,y,r);
end;

procedure rshar ;
begin
xr:=Random(WindowWidth) ;
yr:=Random( WindowHeight);
end;

procedure rshar2;
begin
SetBrushColor(clYellow);
circle(xr,yr,r);
end;

procedure XP(Key:integer);
begin
case Key of
VK_Left: Direction := Left ;
VK_Right: Direction := Right ;
VK_UP: Direction := UP ;
VK_Down: Direction :=Down ;
end;
circle(x,y,r);
end;


procedure pause;
begin
// for i:=1 to 1 do //
begin
Circl;
rshar2;
ClearWindow;
rshar2 ;
prin1:=(xr-x+r)*(xr-x+r)+(yr-y)*(yr-y) ;
prin2:=(xr-x-r)*(xr-x-r)+(yr-y)*(yr-y) ;
prin3:=(xr-x)*(xr-x)+(yr-y+r)*(yr-y+r) ;
prin4:=(xr-x)*(xr-x)+(yr-y-r)*(yr-y-r) ;
prin5:=R*R;
if (prin1)<=(prin5) then begin
rshar ;
s4et:=s4et+1;
end;


if (prin2)<=(prin5) then begin
rshar ;
s4et:=s4et+1;
end;
if (prin3)<=(prin5) then begin
rshar ;
s4et:=s4et+1;
end;
if (prin4)<=(prin5) then begin
rshar ;
s4et:=s4et+1;
end;

case Direction of
Left: begin x:=x-d; if x<=0 then x:=WindowWidth end;
Up: begin y:=y-d; if y<=0 then y:=WindowHeight end;
Right: begin x:=x+d; if x>=WindowWidth then x:=0 end;
Down: begin y:=y+d; if y>=WindowHeight then y:=0 end;
end;
xs[1]:=x;
ys[1]:=y;
for k:=1 to s4et do
begin
bufx[k]:=xs[k];
bufy[k]:=ys[k];

end;
for k:=1 to s4et do
begin
xs[k+1]:=bufx[k];
ys[k+1]:=bufy[k] ;
end;
for k:=2 to s4et do
shar3;
Circl;
end;
end;
begin
rshar;
s4et:=2;

Direction := None;

x:=WindowWidth div 2;
y:=WindowHeight div 2;
OnKeyDown:=XP;
CreateTimer(150,pause);

end.
8 лет назад