Круговорот веществ в экосистеме.
Круговорот веществ - это повторяющиеся взаимно связанные химические, физические и биологические процессы превращения и перемещения веществ в природе. Движущими силами круговорота служат потоки энергии солнца и деятельность живого вещества. Именно с их происходит перемещение и распределение масс, вовлеченных зелеными растениями с фотосинтеза и корневой системы в органические вещества живых существ. Соответственно в биологическом круговороте веществ движется и энергия. На Земле различают 2 типа круговорота веществ: большой или геологический, и малый или биологический. Большой круговорот также часто называют круговоротом воды. Это обмен веществ между океаном и сушей, совершаемый благодаря воде. Малым или биологическим круговоротом веществ называют обмен химическими элементами( C,H,O,N,P,S) между организмами и элементами биосферой: атмосферой, гидросферой, литосферой.
Биологический круговорот характеризуется 4мя обязательными компонентами:
1) запаса химических веществ и энергии
2) продуцентов (растения, создатели сложных органических соединений из неорганических)
3) консументов( потребители, гетеротрофы, птицы, люди, животные, насекомые)
4) редуцентов (разлагатели, те, кто перерабатывает отходы живых организмов и органические вещества мертвых тел)
var b,i,z,k: integer;
a: array[1..10000] of integer;
begin
read(b);
z: =0;
k: =0;
while b> 0 do
begin
z: =z+1;
a[z]: = b mod 10;
b: =b div 10;
end;
for i: =2 to z-1 do
if a[i]=a[i-1] or a[i]=a[i+1] then
k: =1;
if k=1 then writeln (‘да’)
else writeln (‘нет’);
end.
второй способ:
var a,b,c: integer;
begin
read(a);
k: =0;
c: =10; // это должно быть обязательно число, но не цифра
while a > 0 do
begin
b: =a mod 10;
a: =a div 10;
if b=c then k: =1;
c: =b;
end;
if k=1 then writeln (‘да’)
else (‘нет’);
end.
