Напишите короткое (не более 400 слов) эссе на тему: "будь вы злоумышленником какую бы информацию из соц.сетей вы бы использовали? "

  Будь я злоумышленником, я бы использовал любую информацию, найденную в социальной сети. Если я пытаюсь получить доступ к аккаунту в социальной сети человека через разговор с ним, то я буду внедряться в его доверие, используя различную информацию с его страницы: место проживания, увлечения, интересы, любимые фильмы, характер фотографий, характер записей, которыми делится человек, записи, на которые он ставит лайки. Всё это позволит мне составить предполагаемый портрет моей жертвы. С этим можно сделать немного,  если человек подготовлен. Но если он встречается с таким впервые, то его явно обрадует новое знакомство, особенно, когда я буду ему угождать в некоторых вопросах, поддерживать и предлагать схожие идеи.

  Будь я злоумышленником, который незаконно покупает товары в интернет-магазинах "бесплатно", используя чужие банковские счета, я бы воровал номера карточек людей с их страниц, ведь не секрет, что в наше время встретить сервис, доставляющий человеку еду, товары и прочее найти очень легко. Тот же пример - Мак. Человек заказывает еду на дом и оплачивает с подключённой к аккаунту банковской карточки.

  Будь я любым злоумышленником, я бы всегда находил какие-нибудь взять то, что мне нужно. Всё, что человек выкладывает в Интернет - то мгновенно становится публичным или вскоре таковым станет. Вопрос лишь в том, как я получу эту информацию: путём кражи, взлома, хищения, торга, насилия, доверия или угроз.

//То чувство, когда 2 часа работал над оптимизацией, а в итоге работает быстрее вариант, который писал 5 минут.
//PascalABC.NET 3.2 сборка 1318

Var
  i,j,k,m,n,count:integer;
  s,s1:string;
begin
  readln(n);
for i:=1 to n do
  s+=inttostr(i);
for i:=1 to length(s) do
if (s[i]='2') or (s[i]='0') or (s[i]='1') or (s[i]='3') then s1+=s[i];
s:=s1;
for i:=1 to length(s) do
  if  s[i]='2' then
    for j:=i+1 to length(s) do
      if s[j]='0' then
        for k:=j+1 to length(s) do
          if s[k]='1' then
            for m:=k+1 to length(s) do
              if  s[m]='3' then inc(count);
writeln(count);
end.

Пример ввода:
500
Пример вывода:
23760240

Лишь один человек в семье имеет брата - это СЕСТРА МУЖА. Поэтому она ИНЖЕНЕР.
ЖЕНА - не СЛЕСАРЬ и не ЭКОНОМИСТ (вряд ли женщина увлекается футболом) => она УЧИТЕЛЬ или ЮРИСТ. УЧИТЕЛЕМ она быть не может, так как в этом случае она была бы одновременно и старше, и моложе, чем ИНЖЕНЕР. Следовательно, ЖЕНА - ЮРИСТ, а УЧИТЕЛЬ - тот, кто не является ей кровным родственником, то есть ее МУЖ.
Оставшиеся родственники (СЛЕСАРЬ и ЭКОНОМИСТ по профессии) - это родные дед и внук. Так как СЛЕСАРЬ младше, то СЛЕСАРЬ - это СЫН, а ЭКОНОМИСТ - его дед, то есть ОТЕЦ ЖЕНЫ.

СЕСТРА МУЖА - ИНЖЕНЕР
ЖЕНА - ЮРИСТ
МУЖ - УЧИТЕЛЬ
СЫН - СЛЕСАРЬ
ОТЕЦ ЖЕНЫ - ЭКОНОМИСТ