1)факты и правила;
2)факты:2,3,5;
правила:1,4,6
1. <span>Шифрование данных
2. </span><span>Используйте надежные пароли
3. </span><span>Двухфакторная аутентификация
4. </span><span>Обезопасить вашу сеть
5. </span><span>Антивирусное программное обеспечение</span>
uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.
Def func(s, flag):
if flag:
print(s, s, '')
else:
print(s)
func("Znanija", True)
func("Znanija", False)
var D,R:integer;
begin
writeln('Введите значение R: ');
readln(r);
D:=2*R;
writeln('D = ',D);
end.