Часть имени файла указывающая на его тип

Могу предположить, что это - Расширение (файла). Например 123.txt (Текстовый файл с названием 123), 123.wmw (Видео файл).

первое задание:  1. Необходимо следить за адресами, на которые ведут ссылки. Для того чтобы узнать адрес, на который ведет ссылка необходимо просто навести на нее курсор. Если вам предлагают перейти на сайт Х, а ссылка ведет на сайт Y то тут что-то не так. Возможно, вас пытаются обмануть.

2. Перед вводом личной информации проверяйте адресную строку браузера. Если вы там увидите что то вроде vkontokte.ru вместо привычного vkontakte.ru, то можете быть уверены, что вы находитесь на поддельном сайте и у вас пытаются украсть пароль для доступа к вашему аккаунту. После получения данных злоумышленники могут использовать аккаунт для рассылки спама и вирусов вашим друзьям.

3. Не переходите по незнакомым ссылкам, которые приходят вам на почту, в «аську», или в социальные сети. Даже если ссылка пришла от знакомого человека необходимо быть максимально внимательным. Вполне возможно аккаунт вашего знакомого уже взломан, и теперь от его имени рассылают вирусы.

4. Не скачивайте неизвестные файлы, пришедшие вам на почту или в «аську», даже если файл пришел от вашего знакомого. Перед тем как скачивать такие файлы уточните у отправителя, что это за файл.

5. Современные поисковые системы и браузеры умеют предупреждать пользователя, когда он пытается зайти на сайт распространяющий вирусы. Необходимо внимательно относиться к таким предупреждениям, скорее всего сайт, который вы пытаетесь посетить, заражен.

2 задание 1  Длина пароля. Пароль должен содержать не менее 8 символов, а лучше – 10 и более.

2 Наличие цифр и букв верхнего и нижнего регистров, идущих не подряд – .

3 Наличие специальных знаков – «@», «$», «&» и т.д. (если допустимо их присутствие).

пример [email protected]

Объяснение:

Var
  mas: array [,] of integer;
  i,j,m,n,s,max: integer;
  f:boolean;
begin 
write('Введите размерность массива: ');
readln(n); 
write('Введите число m: ');
readln(m);
setlength(mas,n+1,n+1);
for i:=1 to n do
  begin;
  for j:=1 to n do
    begin
    mas[i,j]:=random(-m,m);
    write(mas[i,j]:6);
    if (j>i) and (mas[i,j]=0) then s:=s+1;
    end;
  writeln;
  end;
j:=n;
f:=false;
for i:=1 to n do
  begin
  if (mas[i,j] mod 2=0) then
       begin
       if f=false then
         begin
         max:=mas[i,j];
         f:=true;
         end;
       if (mas[i,j]>max) then max:=mas[i,j];
       end;
  j:=j-1;
  end;
writeln('Число нулей над гл.диагональю: ',s);
writeln('Максимальный четный на доп.диагонали: ',max);
end.