Интернет по сути своей не представляет опасности для подрастающего поколения. Вредоносное влияние оказывают многочисленные сайты и всплывающие окна рекламного характера. Помимо образовательной роли виртуальная реальность таит и множество негативных моментов, в особенности для детей. Это может быть:
незаконный контент: «взрослая» реклама табака, алкоголя, секса, азартные игры, порнография;платные сервисы и услуги, которые оплачиваются отдельно;призывы к асоциальному поведению, насилию и жестокости;пропаганда сексуальной эксплуатации и суицидального поведения;общение на форумах и чатах с мошенниками, аферистами и преступниками под личиной доброжелателей;вынуждение предоставления личной информации ребенка или его семьи, которая может быть использована в преступных целях;Интернет-зависимость.
Var s,sd:string; i,n,sum,d,err:integer; begin Writeln('Введите строку для суммирования'); Read(s); sum:=0; n:=Length(s); if n>0 then begin i:=2; sd:=s[1]; while i<=n do begin if s[i]<>'+' then sd:=sd+s[i] else begin Val(sd,d,err); sum:=sum+d; sd:='' end; Inc(i); end; Val(sd,d,err); sum:=sum+d end; Writeln('Сумма равна ',sum) end.
Тестовые примеры: Введите строку для суммирования 1+25+3 Сумма равна 29
Введите строку для суммирования 143+38+253+62 Сумма равна 496
