Прям Бендер из Футурамы
Пруфы:http://www.newsru.com/crime/21apr2017/fsspbeatpregnputa.html
В суд Омска в пятницу было передано уголовное дело, возбужденное в отношении бывшего сотрудника Федеральной службы судебных приставов (ФССП). Его подозревают в избиении и ограблении беременной проститутки. Мотивом расправы стало желание отомстить женщине, которая отбивала клиентов. Дело в том, что после увольнения с госслужбы пристав стал сутенером.
Подробнее: http://www.newsru.com/crime/21apr2017/fsspbeatpregnputa.html
Преступление было совершено в начале года. 24 января в полицию Советского административного округа Омска позвонила перепуганная женщина. Она сообщила, что к ней в квартиру ворвались трое злоумышленников. Визитеры избили хозяйку и похитили ее вещи, пишет Om1.ru.
На место происшествия выехала оперативно-следственная группа. А уже через несколько часов полицейским удалось задержать подозреваемых. Ими оказались 24-летние мужчины, один из которых раньше работал в службе судебных приставов и сохранил свое служебное удостоверение.
Как оказалось, отставной пристав и его друзья содержали массажный салон, в котором, по одной из версий, оказывали за деньги и сексуальные услуги. Потом организаторы бизнеса узнали, что такие же услуги предоставляет женщина, живущая неподалеку от их салона. Мужчины решили припугнуть конкурентку.
Злоумышленники заранее распределили роли. Один из них позвонил проститутке и представился клиентом, желавшим "культурно отдохнуть", пишет Om1.ru. Женщина согласилась его принять, но в назначенный час мужчина появился на пороге ее дома вместе с двумя приятелями.
При встрече выяснилось, что женщина, принимающая заказы как проститутка, находится на 32-й неделе беременности. Оказывать сопротивление визитерам, один из которых назвался сотрудником ФССП, потерпевшая не стала.
"Со времени работы в ведомстве у него остались форма и удостоверение, которое он и предъявил женщине", - рассказал о действиях бывшего пристава помощник прокурора Советского округа Омска Ярослав Концевой.
Пока один из нападавших удерживал избитую хозяйку, двое других обыскивали ее квартиру. В этот момент присматривавший за женщиной молодой человек отвлекся, и тогда она сумела позвонить в полицию.
Грабители успели скрыться до приезда блюстителей закона, похитив 20 тысяч рублей и ноутбук. Но стражи порядка быстро вышли на их след.
Пока шло следствие, пострадавшая благополучно родила малыша. Несмотря на инцидент и опасную профессию матери, ребенок появился на свет здоровым.
В отношении бывшего пристава-сутенера и его сообщников возбуждено уголовное дело по ст. 161 ("Грабеж, сопряженный с незаконным проникновением в жилище, совершенный группой лиц по предварительному сговору с применением насилия, не опасного для жизни") УК РФ. Им грозит наказание в виде семи лет лишения свободы.
Подсчет символов в PowerPoint
Переводчики, которым платят за символы, сталкивались с проблемой подсчитать символы в презентации PowerPoint. Копировать в Word и считать там долго и гиморно.
Предлагаю найденный (и разжеванный мной) на просторах интернета способ.
Итак, будем вставлять скрипт для подсчета символов в PowerPoint
1. Создаем новую презентацию и сохраняем ее как "Презентация PowerPoint с поддержкой макросов. Файл сохраняем в надежное место и не удаляем если хотим считать символы и дальше
2. Открываем раздел для разработчиков: Файл=>Параметры=>Настройка ленты и ставим галочку на Разработчик
3. Открываем в закладке Разработчик VisualBasic (слева)
Для тех, у кого кнопка неактивна - доустанавливаем компонент Мелкософта VisualBasic
4. В окне VisualBasic выбираем: Insert=>Module
И сюда вставляем текст:
Public Sub TextSymbols()
Dim PPT As Slide
Dim i As Long
Dim j As Long
Dim k As Long
Dim Symbs As Long
On Error GoTo SysErr
If Windows.Count = 0 Then
MsgBox "Необходимо открыть файл презентации.", vbExclamation + vbOKOnly
Exit Sub
End If
Symbs = 0
For i = 1 To ActivePresentation.Slides.Count
Set PPT = ActivePresentation.Slides(i)
For j = 1 To PPT.Shapes.Count
If PPT.Shapes(j).TextFrame.HasText = msoTrue Then Symbs = Symbs + Len(PPT.Shapes(j).TextFrame.TextRange.Text)
If PPT.Shapes(j).GroupItems.Count > 0 Then
For k = 1 To PPT.Shapes(j).GroupItems.Count
If PPT.Shapes(j).GroupItems(k).TextFrame.HasText = msoTrue Then Symbs = Symbs + Len(PPT.Shapes(j).GroupItems(k).TextFrame.TextRange.Text)
Next k
End If
Next j
Next i
MsgBox "Символов=" + Trim(Str(Symbs))
SysErr:
Resume Next
End Sub
5. Закрываем окно VisualBasic и добавляем скрипт в панель быстрого доступа: Файл=>Параметры=>Панель быстрого доступа=>Выбрать команды из макроса=>выделяем наш скрипт и добавляем
В последующем для подсчета символов сначала запускаем наш файл с пункта 1, а потом тот, в котором нужно подсчитать символы.
Символы в "Заметки" не считает
П.С. Скрипт писал не я, я просто расписал от "А до Я" способ настройки
Двулапая Ракета
Несколько лет назад в интернете появилась необычная история котенка Анакина, у которого с рождения были лишь две передние лапы и не было задних. История Анакина сложилась удачно, его подобрали и взяли из приюта к себе в семью хорошие люди.
У другого двуногого кота, с которым мы вас сейчас познакомим, надеемся будет такая же хорошая судьба. Итак, познакомьтесь с Ракетой, бело-черным котенком, у которого как и у Анакина, всего две лапы из четырех и тоже передние. И также как Анакина Ракету обнаружили случайно в группе бродячих кошек.
Жительница Берлина по имени Марин подкармливала обитающих возле ее дома бродячих кошек. Одна из местных кошек ранее принесла потомство и женщина заметила среди котят, которым было от роду несколько недель, котенка с дефектом - у него не было задних лап.
Когда она захотела его поймать, котенок необычайно быстро убежал от нее на своих двух лапках! Тогда женщина вернулась через некоторое время с ароматной приманкой. Котенок вышел на запах еды и женщине удалось поймать его.
Котенок оказался мальчиком и он поразил Марин тем, что умело и ловко балансировал на двух лапах и умел быстро бегать.
Марин взяла его к себе домой и приняла решение оставить у себя насовсем. По ее словам в первую ночь котенок был напуган и плакал, но потом он быстро освоился в ее доме.
- Он ходил за мной по всюду и громко мурлыкал. И он освоился так, что может залезть куда угодно. Его умение балансировать просто невероятное.
Ракета отъелся и обогрелся и полюбил валяться на полу вверх животом. Он также подружился с другими двумя кошками, жившими у Марин.
Время прогревать аудиторию!
Сентябрь — это не только начало учебного года, но и время активной подготовки к горячему сезону распродаж. Самое время подключить подписку Пикабу+:
рассказывайте о своих товарах и услугах
добавляйте ссылки
создавайте витрину товаров прямо в профиле
подключайте дополнительное продвижение постов
Пора готовить сани!
Ученые из России создали полимеры, способные заменить металл
Суперконструкционные полимеры экономичны в производстве, устойчивы к радиации, термо- и морозостойки. Кроме того, они более чем в два раза легче алюминия.
Применять новые материалы можно при строительстве самолетов, ракет и автомобилей. А также - в медицине и нефтегазовой отрасли. С их помощью можно создавать оборудование, способное работать в экстремальных температурных условиях, в том числе в условиях Арктики и в космосе.