Найти сумму чётных цифр числа) ) решить в паскале. буду )

vars: integer; a,n: longint; beginwrite ('a ='); readln(a);

if (a div 10 = 0) and (odd(a)=false) then s: =a else beginn: =a;   while n div 10 < > 0 do beginn: =a;   if odd(a mod 10)=false then s: =s+a mod 10; a: =a div 10; end;

end; writeln (s); readln; end.

ответ:

1

надежный пароль

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

2

обновление системы и антивируса

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

3

привязка телефона

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

4

внимательность и недоверие

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

объяснение:

таким образом, интернет—угрозы выглядят весьма невинно, поэтому в сети злоумышленников попадает все больше людей.

ответ:

#include

using namespace std;

int main()

{

  int l,a,b,p;

  cin > > a > > b > > l;

  p = (a+b)*2;

  if(l > p)

      l %= p;

  if(l > 0 & & l < a)

  {

      cout < < "bottom";

      return 0;

  }

  if(l > a & & l < a+b)

  {

      cout < < "right";

      return 0;

  }

  if(l > a+b & & l < 2*a + b)

  {

      cout < < "top";

      return 0;

  }

  if(l > p - b & & l < p)

  {

      cout < < "left";

      return 0;

  }

}

объяснение: easy, bro