В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
ykub321
ykub321
03.04.2023 03:58 •  Математика

Примеры 1701,1702,1704отправить полностью решение на

Показать ответ
Ответ:
Антон2004111
Антон2004111
14.03.2022 14:25
Многие виды животных служат пищей для других. Например, опасным вреди­телем сельского хозяйства — пере­летной саранчой — питаются многие виды насекомоядных животных (ящериц, птиц, млекопитающих и др.), личинками кровососущих кома­ров разнообразные обитатели водо­емов, такие как промысловые виды рыб.
Таким образом, в природе не су­ществует вредных видов. Виды приносить вред здоровью человека и его хозяйству, являются необходимыми компонентами при­родных сообществ. Если из экосис­темы изъять любой вид, равновесие в ней может нарушиться. Поэтому следует не уничтожать вредный вид, а ограничивать его численность, чтобы он не смог принести ощутимый вред хозяйству человека.Животные играют важную роль в обеспечении плодородия почв, опылении многих цветковых растений, распространении плодов и семян. Среди животных есть и так называемые санитары природы, которые перерабатывают остатки растений, трупы животных, очища­ют водоемы. Материал с сайта http://worldofschool.ru
Животные — неотъемлемые компоненты экосистем, они играют важную роль в природе: принимают активное участие в процессах почвообразования, играют роль «санитаров», служат пищей для других видов животных.
0,0(0 оценок)
Ответ:
27sergey1
27sergey1
29.02.2020 10:51
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.
1) дан массив а(6). найти сумму и количество положительных элементов, расположенных между минимальны
0,0(0 оценок)
Популярные вопросы: Математика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота