Var a: integer;
begin
write ('Введите число: ');read (a);
if (a mod 2 = 0) then writeln ('Число делится на 2');
if (a mod 3 = 0) then writeln ('Число делится на 3');
if (a mod 5 = 0) then writeln ('Число делится на 5');
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно');
<span>end.</span>
Программа на фотке, код старался сделать простым, сделал ещё защиту от дурака это значит программа не заработает если пользователь не выполнит условие А<Б
Ответ:
Может быть опасный вирус.
Способы защиты: установить антивирус и сразу же обновлять операционную систему а не ждать полвека.
Могут тебя хакнуть.
Способы защиты: не говорить свой пароль любым знакомым даже лучшим друзьям. А также ставить надежные пароли а не 1 2 3 4 а например 8 5 6 7
Могут вычислить твой IP и доставать тебя в реальной жизни.
Способы защиты: поставить турбо VPN
Могут вычислить твой пин-код и снять все твои деньги
Способы защиты: не говорить свой пароль любым знакомым даже собственным родителям!!!!!!!!!!!!!!!!!!!!!
Обдурить тебя сказочкой Вы выиграли миллион доларов
Способы защиты: Удалять весь спам.
Всего 1024 слова по 5 букв
4^5=1024 ----> 4 различных букв в алфавите
4=2^i ----> i=2 бита для одной буквы
(1024 слова можно составить из пяти двубитных букв)
ответ: 1 буква алфавита несёт количество информации = 2 битам.