Дано натуральное число n.если число содержит 5 цифр, то получить новое число m, которое образуется путем исключения средней цифры исходного числа.если количество цифр не 5, то m=n. p.s - решить без использования строковой переменной.

Uses crt; var n,m: integer; begin readln(n); if n div 1000> =10 then m: =(n div 10000)*1000+((n div 1000)mod 10)*100+((n div 10) mod 10)*10+(n mod 10) else m: =n; writeln(m); end.

#include "stdafx.h" #include < stdio.h> #include < windows.h> int main()       {       setconsolecp(1251);               setconsoleoutputcp(1251);     int const n=3; int mas[n][n]; int sum1, sum2; bool magik; for (int i=0;   i< n;   i++)       for (int j=0;   j< n;   j++)           {             printf("mas[%d][%d] = ",  i+1, j+1);             scanf("%d",& mas[  i  ][  j  ]);           } printf("\nвведенная матрица: \n");       for (int i=0;   i< n;   i++)           {               for (int j=0;   j< n;   j++)                         {                             printf("%d   ",mas[  i  ][  j  ]);                         }               printf("\n");           } sum1=0; sum2=0; for (int i = 0; i< n; i++)       {               sum1 += mas[  i  ][  i  ];             sum2 += mas[  i  ][  n-1-i  ];       } printf("сумма главной диагонали = %d\n",  sum1); printf("сумма побочной диагонали = %d\n",  sum2); magik = true; for (int i=0;   i< n;   i++)     {           if (sum1==sum2)               {                   sum2=0;                   for (int j=0;   j< n;   j++)                       {                           sum2 += mas[  i  ][  j  ];                       }                 } else  { magik=false; break; }       } if (magik==true)       {             for (int i=0;   i< n;   i++)                     {                     if (sum1==sum2)                           {                             sum2=0;                             for (int j=0;   j< n;   j++)                                 {                                     sum2 += mas[  j  ][  i  ];                                 }                           }                           else  { magik=false; break; }                   }         } if (magik==true)       printf("\nматрица является магическим квадратом\n");     else       printf("\nматрица не является магическим квадратом\n"); system("pause"); return 0; }

1. Внешние причины.

А. Факторы дезадаптации в реальной жизни:

а) Травматическая ситуация, стресс, породившие отчуждение от реального мира и людей.

б) Социальная изоляция — вынужденная или нарочно созданная. Человек оказывается в изоляции и пытается искать пути выхода из этой изоляции.

Б. Особенности интернет-среды:

а) Престижность Интернета.

б) Доступность.

в) Возможность поиска необходимой информации.

г) Возможность общения со знакомыми, находящимися на расстоянии.

д) Возможность быстрого поиска новых социальных контактов (друзей, любимых, знакомых, людей).

е) Легкость общения в Иитернете за счет его неполноценности, так как данный вид общения во многом состоит из игры воображения, позволяющей сделать из своего собеседника — идеального собеседника.

ж) Возможность создания собственного образа, вызвав предусмотренную и желательную реакцию окружающих, получение их признания.

з) Возможность удовлетворения сексуальных желаний.

и) Возможность ухода от проблем в реальной жизни.

к) Свобода действий, поступков, высказываний — свобода от ограничений и социальных норм, накладываемых обществом, возможность общения на «запрещенные» обществом темы, свободное управление информацией.

л) Безответственность в общении.

Объяснение: