Значение леса в том, что: 1) Лес-это дом для всех животных. 2) Деревья очищают воздух. (В процессе фотосинтеза) 3)Леса занимают около трети площади суши, площадь леса на Земле составляет 38 млн км². 4)Леса, особенно хвойные, выделяют фитонциды — летучие вещества, обладающие бактерицидными свойствами. Фитонциды убивают болезнетворные микробы. 5) В лесу растут растения употребляемые в пищу человека. 6) В лесу растут растения употребляемые в пищу животных. 7) В лесу растут лекарственные растения, употребляемые человеком во всяческие лекарства. 8) В лесу растут растения, которые являются лекарственным припоратом для животных. И т.д. и т.п.
1) program one; uses crt; var A: array [1..6] of integer; i,k,Amin,Amax,S: integer; begin readln (A[i]); Amax:=A[1]; k:=1; for i:=2 to 6 do begin if A[i]>Amax then begin k:=i; Amax:=A[i]; end; end; Amin:=A[1]; k:=1; for i:=2 to 6 do begin if A[i]<Amin then begin k:=i; Amin:=A[i]; end; end; S:=0; for i:=1 to 6 do begin if (A[i]mod 2=0) and (Amax>A[i]) and (Amin<A[i]) then S:=S+A[i]; end; writeln ('Сумма положительных чисел между минимальным и максимальным значениями равна: ', S); end.
2) program two; uses crt; var x,a,b,i,n: integer; y: real; begin readln (a,b,i,n); x:=a; repeat if -2<=x<=2 then y:=sqr(x)-1 else y:=sqrt(x-1); writeln (y:3:4); i:=i+n; until x>=b; end.
9x=50-11.3
9x=38.7
x=38.7/9
x=4.3
б)6м+4,9=27,1
6m=27.1-4.9
6m=22.2
m=22.2/6
m=3.7
в)6,75х+1,25х=26,3
8x=26.3
x=26.3/8
x=3.2875
г)6,72Т-1,72Т=0,25
5t=0.25
t=0.25/5
t=0.05