Перечислите 2 угрозы для физического здоровья, вызванные использованием технологий виртуальной и дополненной реальностей. И дайте совет как избежать этих последствий
Var i,n,k,max:integer; s:string; a:array[1..12]of integer; naz:array[1..12]of string; begin naz[1]:=('январь'); naz[2]:=('февраль'); naz[3]:=('март'); naz[4]:=('апрель'); naz[5]:=('май'); naz[6]:=('июнь'); naz[7]:=('июль'); naz[8]:=('август'); naz[9]:=('сентябрь'); naz[10]:=('октябрь'); naz[11]:=('ноябрь'); naz[12]:=('декабрь'); write('Введите число N: '); readln(n); for i:=1 to n do begin write('Введите дату: '); readln(s); s:=copy(s,4,2); k:=StrToInt(s); a[k]:=a[k]+1; end; for i:=1 to 12 do begin if a[i]>=max then begin max:=a[i]; n:=i; end; end; writeln('Месяц с наибольшим количеством: ',naz[n]); end.
Твои глаза будут хуже видеть,может начаться боль в голове,голова кружения
Объяснение:
использовать реже технологии виртуальной реальности или использовать их по мере необходимости