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

Як формується навичка?​

Показать ответ
Ответ:
glebik28898
glebik28898
18.06.2022 12:25

Я не знаю точно ли но...

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

Самая главная угроза для окружающей среды – это пластиковые отходы .Пластик является очень дешёвым материалом, потому его используют абсолютно везде. Но перепроизводство пластика привело к экологической катастрофе. Человечество на данный момент не в состоянии перерабатывать такие объемы пластика. Поэтому мы можем наблюдать пластиковые отходы везде:в мировом океане,лесах и городах . Пластиковые отходы добрались даже до необитаемых островов! Поэтому я стараюсь освещать данную проблему в обществе. Ведь эта проблема возникла прежде всего потому,что общество не осознает какой вред оно наносит природе.

0,0(0 оценок)
Ответ:
минкп
минкп
03.12.2020 07:43

var

 N, i, P, O, Z : Integer;

 R : Real;

begin

 Write('n = '); ReadLn(N);

 P := 0; O := 0; Z := 0;

 // для for         // для while       // для repeat

 for i := 1 to N do // i := 0;         // i := 0;

                    // while i < N do  // repeat

   begin            // begin           //   Inc(i)

                    //   Inc(i);

     Write(i, ' число = '); ReadLn(R);

     case sign(R) of

       +1 : Inc(P);

       -1 : Inc(O);

        0 : Inc(Z);

      end;

   end;             // end;            // until i = N;

 WriteLn('Процент положительных чисел: ', P*100/N);

 WriteLn('Процент отрицательных чисел: ', O*100/N);

 WriteLn('      Процент нулевых чисел: ', Z*100/N);

end.

0,0(0 оценок)
Популярные вопросы: Другие предметы
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота