Объяснение:
Вредная информация-Реклама игр для детей старше 18 лет , реклама неприличных книг, разные посты в соц сетях которые являются пропагандой чего то плохого , азартные игры, помимо опасностей человеческих, есть еще опасности чисто технические. Заблудившись в сети очень легко заразить компьютер вредоносными программами. Кража паролей и прочей конфиденциальной информации, спам от вашего имени, хулиганство, вымогательство, угрозы
нежелательная информация. В интернете кроме орнографических сайтов существуют ресурсы, на которых в подробностях рассказывается о создании взрывных или поджигающих устройств, идеализируется такое понятие, как суіцид, употребление алкоголя, табака и запрещенных нарк@тических препаратов.
month = int(input("Введите номер месяца: "))
if month == 12 or (month >= 1 and month <= 2): print("зима")
elif month >= 3 and month <= 5 : print("весна")
elif month >= 6 and month <= 8 : print("лето")
elif month >= 9 and month <= 11 : print("осень")
else : print("нет такого месяца")
# Если более точно, то
if month == 1 : print("январь")
elif month == 2 : print("февраль")
elif month == 3 : print("март")
elif month == 4 : print("апрель")
elif month == 5 : print("май")
elif month == 6 : print("июнь")
elif month == 7 : print("июль")
elif month == 8 : print("август")
elif month == 9 : print("сентябрь")
elif month == 10 : print("октябрь")
elif month == 11 : print("ноябрь")
elif month == 12 : print("декабрь")
program raf105;
var a,x,y:integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
a:=1;
while a<>0 do
begin
readln(a);
if a>0
then x:= x+1;
if a<0
then y:= y+1;
end;
writeln('Количество положительных чисел: ',x);
writeln('Количество отрицательных чисел: ',y);
end.
Программа написана на языке PascalABC