Объяснение:
Вредная информация-Реклама игр для детей старше 18 лет , реклама неприличных книг, разные посты в соц сетях которые являются пропагандой чего то плохого , азартные игры, помимо опасностей человеческих, есть еще опасности чисто технические. Заблудившись в сети очень легко заразить компьютер вредоносными программами. Кража паролей и прочей конфиденциальной информации, спам от вашего имени, хулиганство, вымогательство, угрозы
нежелательная информация. В интернете кроме орнографических сайтов существуют ресурсы, на которых в подробностях рассказывается о создании взрывных или поджигающих устройств, идеализируется такое понятие, как суіцид, употребление алкоголя, табака и запрещенных нарк@тических препаратов.
Конус – это тело, образованное совокупностью всех лучей, исходящих из точки и пересекающих плоскость.
Точка, из которой лучи исходят, получила название вершины конуса. В случае, когда основанием конуса является многоугольник, он превращается в пирамиду.
Рассмотрим некоторые важные понятия.
Образующей конуса называется отрезок, который соединяет любую точку границы основания конуса, с его вершиной.
Высотой конуса является перпендикуляр, который опущен из вершины к основанию тела.
Конус бывает нескольких типов:
Прямой, если его основание – одна из таких фигур, как эллипс или круг. Обязательным условием является проецирование вершины конуса в центр основания.
Косой – у него центр фигуры, которая находится в основании, не совпадает с проекцией вершины на это самое основание.
Круговой – отталкиваясь от названия, понятно, что в его основании лежит круг.
Усеченный – область конуса, лежащая между основанием и сечением плоскости, которая параллельна основанию и пересекает данный конус.
program N1;var a: array [1..10] of integer;i:integer;beginfor i:= 1 to 10 doreadln(a[i]);for i:=1 to 10 do beginif a[i]>5 thenwrite (a[i]);end;end.
номер 2
program N1;var a: array [1..10] of integer;i,s:integer;beginfor i:= 1 to 10 doreadln(a[i]);s:=0;for i := 1 to 10 do beginif a[i]>0 thens:=s+a[i];end;write(s);end.
номер 3
program N1;var a: array [1..10] of integer;i:integer;beginfor i:= 1 to 10 doreadln(a[i]);for i:=1 to 10 do begina[i]:=a[i]*2;write(' ',a[i]);end;end.