Решите уравнение графическим
3)2^х=3-х^2
4)log1/2x=4x^2
5)2^x=log0,5x​

Существует мнение, что "легкими планетами" являются леса, поскольку считается, что именно они — основные поставщики кислорода в атмосферу. Однако на самом деле это не так. Главные производители кислорода живут в океане. Этих малышей невозможно увидеть без микроскопа. Но все живые организмы Земли зависят от их жизнедеятельности.
Весь мировой фитопланктон вырабатывает в 10 раз больше кислорода, чем нужно ему самому для дыхания. Хватает для того, что бы обеспечить полезным газом и всех остальных обитателей вод, и в атмосферу попадает немало. Что касается затрат кислорода на разложение трупов, то в океане они весьма низки — примерно 20 процентов от общей выработки.

Происходит это из-за того, что мертвые организмы сразу же поедаются падальщиками, которых в морской воде живет великое множество. Тех, в свою очередь, после смерти съедят другие падальщики, и так далее, то есть трупы в воде практически никогда не залеживаются. Те же останки, на которые уже ни для кого не представляют особого интереса, падают на дно, где мало кто живет, и разлагать их просто некому (так образуется всем известный ил) , то есть и в данном случае кислород не расходуется.

Итак, океан поставляет в атмосферу около 40 процентов того кислорода, которое произвел фитопланктон. Именно этот запас и расходуется в тех областях, где кислорода вырабатывается очень мало. К последним, кроме городов и деревень относятся пустыни, степи и луга, а также горы.

Так что, как это ни странно, род человеческий живет и здравствует на Земле именно за счет микроскопических "кислородных фабрик", плавающих по поверхности океана. Именно их-то и следует называть "легкими планеты". И всячески оберегать от нефтяных загрязнений, отравлений тяжелыми металлами и т. п. , поскольку, если они вдруг прекратят свою деятельность, нам с вами будет просто нечем дышать.

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.