Яделаю проет по информатике на тему мир компьютеров напешите мне актуальность проекта на эту тему

Тема   реально на конференции в этом году я буду выступать с темой вред компьютерных в прошлом году выступала с этой темой и довольно удачно можете в проекте указать чем является компьютер для некоторых людей ..например провести анкетирование это сделала перечислить классификации человека с море ..главное правильно подойти к этой теме!

Option explicit const n = 50 'максимальная емкость стека dim lifo(1 to n) as variant dim ptr as integer  'указатель на вершину стека, моделируемого lifo dim overflow as boolean dim emptylifo as boolean sub push(elem as variant)       'добавляет элемент на вершину стека       if ptr < n then               ptr = ptr + 1               lifo(ptr) = elem               overflow = false               emptylifo = false       else               overflow = true       end if end sub sub pop(elem as variant)       'возвращает элемент с вершины стека и удаляет его из стека       if ptr > 0 then               elem = lifo(ptr)               ptr = ptr - 1       end if       emptylifo = (ptr = 0) end sub sub main()       ' пример работы со стеком - перестановка букв в словах строки.       ' не меняя порядка слов в строке, переставить в каждом слове буквы в обратном порядке.       ' слова разделяются ровно одним пробелом.       dim s as string, s1 as string, i as integer, e as string       s = sheets("лист1").cells(1, 1).value       if len(s) = 0 then               msgbox "нет входной строки"               exit sub       end if       emptylifo = true       overflow = false       s1 = ""       for i = 1 to len(s)               e = mid(s, i, 1)      'очередной символ               if e < > " " then                       push e               else                       s1 = s1 + " "                       do while not emptylifo                               pop e                               s1 = s1 + e                       loop               end if       next i       s1 = s1 + " "       do while not emptylifo               pop e               s1 = s1 + e       loop       s1 = trim(s1)       sheets("лист1").cells(2, 1).value = s1 end sub