Program Digit; Const min = 1; Var N, sum, i: Integer; Begin Write('N = '); ReadLn(N); If N <= min Then WriteLn('Число N должно быть больше ', min) Else Begin sum := 0; For i := min To N - 1 Do If N Mod i = 0 Then sum := sum + i; If N = sum Then WriteLn('Число ', N, ' равно сумме своих делителей') Else WriteLn('Число ', N, ' не равно сумме своих делителей'); End; ReadLn; End.
(1) Когда сопоставляешь эти образы, становится ясно, что Лужин и Свидригайлов живут, в общем-то, по теории Раскольникова. Он же, общаясь с «сильными мира сего», не может принять их жизнь, хотя и старается причислить себя к «сильным мира сего»; ему неприятны люди, живущие по его «теории». Этим сопоставлением ниспровергается в герое теоретика и возвышает в нем человека.
(2) У всех — у Раскольникова, Лужина, Свидригайлова — бесчеловечность индивидуализма, эгоистическое самоутверждение за счет других. Сталкивая этих героев, автор опровергает теорию Раскольникова, вскрывает ее антигуманную, бесчеловечную суть. В то же время отношение Раскольникова к Лужину и Свидригайлову убеждает, что он испытывает отвращение к «сильным мира сего, не может принять мир людей, которые не живут по его теории. В этом сила Раскольникова и то, что возвышает его над «сильными мира сего».
Для охраны используют очистные фильтры на заводах и других промышленных предприятиях. Проводят мониторинг (слежение) за состоянием чистоты воздуха. Такие же мероприятия проводятся и по охране водьг Нельзя в воду сбрасывать сточные воды и различный мусор. При перевозки по воде нефти и мазута необходимо соблюдать правила безопасности. Охрана полезных ископаемых очень важна.
Главное, это экономично использовать природные ресурсы, оберегать от пожаров, соблюдать правила перевозки и стараться, по возможности, заменять их искусственными материалами. Для охраны почвы недопустимо использовать огромные машины - вездеходы и тракторы, которые после себя оставляют глубокие колеи и разрушают слой почвы, уничтожают редкие растения. Домашний скот также разрушает верхний слой почвы и растения,
Если животные долгое время пасутся в одном месте, происходит перевыпас. Нужно внимательно следить за правилами выпаса скота. Животных тоже необходимо оберегать. Многие животные занесены в Красную книгу России, на них запрещена охота.
for q:=2 to max do
begin
sum:=0;
for q1:=1 to q-1do if (q mod q1=0) then sum:=sum+q1;
if q=sum then writeln(q,'-искомое');
end;