Городское загрязнение воздуха может быть большой проблемой для тех с воздушной чувствительностью. Живя в многочисленных, растягивающихся сообществах может вызвать много проблем с аллергиями, астмой и другими дыхательными проблемами. Не только это плохо для Вашего здоровья, оно определенно затрагивает много других аспектов Вашей среды. Деревья, растительность и водоснабжение могут быть затронуты также. Есть несколько шагов, все мы можем взять отдельный уровень, чтобы бороться с городским загрязнением воздуха.
Шаг 1 - ПереключениеОдин из ведущих факторов городского загрязнения воздуха - факт, что мы ведем много ненужных миль каждый день. Если бы все ограничивали совершающие ненужные поездки каждый день, то мы могли бы сократить большую проблему загрязнения.
Если Вы должны пойти в продуктовый магазин, войти в список пунктов, Вы нуждаетесь так, Вы только должны совершить одну поездку. Найдите, что группа автобазы для Вашей работы добирается, или используйте общественный транспорт когда возможный. Если Вы в состоянии счесть больше топлива эффективным автомобилем, который не испускает чрезмерную и вредную эмиссию, Вы можете бороться с городским загрязнением воздуха. В следующий раз, когда Вы должны пойти куда-нибудь, думать обо всех других поручениях, Вы должны бежать, и попытаться сделать их всех во время одного пикника. Это также Вам экономить деньги в конечном счете. Шаг 2 - Сажание ДеревьевДеревья - фактически красивый сократить загрязнение воздуха. Так как они полагаются прежде всего на углекислый газ и обеспечивают кислород, деревья могут очистить воздух. Кислород, который деревья выпускают назад в нашу среду, является чистым и бесплатным от загрязнения. Вы можете присоединиться к Национальному Фонду Дня деревьев меньше чем за 20$ и получить свободные деревья в завод. Если у Вас нет пространства в завод, Вы можете пожертвовать деревья непосредственно через их веб-сайт, и они будут установлены от Вашего имени.
Шаг 3 - Углеродистое СмещениеЕсли Вы уже делаете то, что Вы можете, чтобы сократить загрязнение воздуха, Вы можете смотреть на покупательные углеродистые кредиты погашения. Эти кредиты - финансовый инструмент, нацеленный на сокращение загрязнения. Деньги, данные к погашениям, помещены в программы, которые уменьшат количество углекислого газа и других вредных вещей, которые могут вызвать загрязнение.
Путем это работает, просто:
Углеродистые кредиты погашения измерены таким же образом, углерод измерен. Таким образом, одно углеродистое погашение равнялось бы одной метрической тонне газа. Если Вы покупаете 100 углеродистых погашений, Вы по существу восполняете использование 100 метрических тонн углекислого газа. Эти погашения доступны через многие различные компании, которые предлагают различные планы. Некоторые агентства посадят деревья, которые уберут углерод от воздуха. Другие вложат капитал в возобновляемый источник энергии, который сократит количество углерода, испускаемого в воздух.Городское загрязнение воздуха не должно быть проблемой, которая будет существовать навсегда. Мы можем все еще убрать наш воздух. Мы должны сделать более мудрый выбор и вложить капитал в различные формы возобновимой, жизне энергии.
Для примера возьмем трехзначное число 671. Если его разделить на 100 и отбросить остаток, то получим 6 — первая цифра (число сотен). Поскольку для целочисленного деления существует операция div, то здесь достаточно вычислить 671div 100, что возвратит нам результат 6. Аналогично мы поступали при вычислении первой цифры двузначного числа в программе Integer6, только там нужно было делить на 10. Этот используется и в данной программе.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
N: word;
begin
write('N = ');
readln(N); { <-- вводим трехзначное число }
writeln;
{ Находим и выводим первую цифру числа
как целую часть при делени на 100: }
writeln('Первая цифра числа: ', N div 100);
readln
end.
Integer10. Дано трехзначное число. Вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки).
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
N: word;
begin
write('N = ');
readln(N); { <-- вводим трехзначное число }
writeln;
N := N mod 100; { <== Последние две цифры }
{ Выводим последнюю и среднюю цифры числа: }
writeln('Последняя цифра: ', N mod 10);
writeln('Средняя цифра: ', N div 10);
readln
end.
Integer11. Дано трехзначное число. Найти сумму и произведение его цифр.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
N: word; { Трехзначное число }
t1, t2, t3: byte; { Цифры трехзначного числа }
begin
write('Введите трехзначное число: ');
readln(N); { <-- вводим трехзначное число }
writeln;
t3 := N mod 10; { <== третья цифра }
N := N div 10; { <== число созданное первыми двумя цифрами }
t2 := N mod 10; { <== вторая цифра }
t1 := N div 10; { <== первая цифра }
writeln('Сумма цифр: ', t1 + t2 + t3);
writeln('Произведение цифр: ', t1 * t2 * t3);
readln
end.
Integer12. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
N: word; { Трехзначное число }
t1, t2, t3: byte; { Цифры трехзначного числа }
begin
write('Введите трехзначное число: ');
readln(N); { <-- вводим число }
writeln;
t3 := N mod 10; { <== третья цифра - единицы }
N := N div 10; { <== число созданное первыми двумя цифрами }
t2 := N mod 10; { <== вторая цифра - десятки }
t1 := N div 10; { <== первая цифра - сотни }
{ t3 - сотни, t2 - десятки, t1 - единицы: }
N := 100 * t3 + 10 * t2 + t1; { <== перевернутое число }
writeln('Прочитанное в обратном порядке число: ', N);
readln
end.
Второй вариант не предусматривает дополнительных переменных для хранения цифр числа:
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
N: word; { Трехзначное число }
begin
write('Введите трехзначное число: ');
readln(N); { <-- вводим число }
writeln;
{ Вычисляем три цифры числа:
1) N div 100 - первая цифра;
2) N div 10 mod 10 - вторая цифра;
3) N mod 10 - третья цифра.
Составляем число с переставленными цифрами справа налево: }
N := 100 * (N mod 10) + 10 * (N div 10 mod 10) + N div 100;
writeln('Прочитанное в обратном порядке число: ', N);
readln
end.
Пошаговое объяснение:
Сорри если не правильно
