Сейчас мы часто пользуемся интернетом, но хорошо это или плохо? Давайте разберем сначала плюсы интернета. Интернет находить нужную информацию, ты можешь легко найти кучу информации обо всем, что тебе нужно. Ты легко можешь общаться с друзьями и дальними родственниками. Так же ты можешь начать обучатся языкам или же какими-то предметами, которые тебя интересуют и которых нет в школьной программе, это и является самообразованием. Еще ты можешь «подтянуть» предмет, который ты плохо знаешь, ведь в интернете есть много разных учебников. Теперь с интернета не надо тратить деньги на книги ведь любую книгу можно скачать даже бесплатно. Ладно с плюсами разобрались, теперь давайте с минусами. Минусы интернета. Одни из самых банальных минусов это игры. Они есть как бесплатные так и платные, но оба варианта вызывают зависимость. Люди не замечают как сидят целыми днями за игрой которая не имеет смысла. В случаи подростка: снижается успеваемость в школе, отдаление от социального общества и т.п. Сейчас стало очень много спама в интернете и порнографии, и конечно же интернет является главным источником СМИ, что приводит к недостоверной информации (желтая пресса). Так как уследить за всеми сайтами не возможно, то появляются сайты через которые люди пропагандируют, даже например ислам, или говорят что наркотики это круто, даже если это не так. Я хочу сказать что в интернет есть положительные стороны и отрицательные, но если ты разумный человек ты будешь использовать интернет только по необходимости.
Procedure TForm1.Button1Click(Sender: TObject); var i,j,k:Integer; Chislo : Integer; begin Memo1.Clear; for i := 0 to 31 do begin Chislo := 3; for j := 0 to 4 do begin if ((i and Trunc(IntPower(2,j)))=0) then Dec(Chislo) else Chislo := 3*Chislo; if (Chislo=16) then begin Memo1.Lines.Append('УРА - Нашли'); for k := 0 to j do if ((i and Trunc(IntPower(2,k)))=0) then Memo1.Lines.Append('1') else Memo1.Lines.Append('2'); Memo1.Lines.Append(''); end; end; end; end;
