Защита и резервирование информации
1. Программа для архивации файлов - это:
программа для уменьшения (сжатия) исходного объема файлов
2. Сжатый файл представляет собой:
файл, упакованный с помощью архиватора
3. Какое из названных действий можно произвести со сжатым файлом:
распаковать
Вообще-то .exe файлы, упакованные с помощью таких программ, как exepak, pklite, diet, aspack и некоторых других, можно запустить на выполнение.
Они на лету разворачиваются в памяти и сразу выполняются.
4. Компьютерные вирусы:
создаются людьми специально для нанесения ущерба ПК
5. Отличительными особенностями компьютерного вируса являются:
маленький объем и способность к самостоятельному запуску и созданию
6. Загрузочные вирусы:
запускаются при запуске компьютера
7. Файловые вирусы:
поражают программы в начале их работы
8. Какого типа файлы лучше всего сжимаются:
текстовые
9. Чему равен коэффициент сжатия, если начальный объем составлял 250 Кбайт, после сжатия 50 Кбайт
20%
10. Какие мероприятия не являются административными при обеспечении мер безопасности:
контроль смены паролей
выявление уязвимостей в системе защиты
Const
key = 3;
var
i: integer;
s: string;
function Encode(s: string; key: integer): string;
var
i: integer;
begin
for i := 1 to Length(s) do
s[i] := chr(ord(s[i]) + key);
Encode := s;
end;
function Decode(s: string; key: integer): string;
var
i: integer;
begin
for i := 1 to Length(s) do
s[i] := chr(ord(s[i]) - key);
Decode := s;
end;
begin
write('Введите строку данных - ');
readln(s);
writeln('Выберите действие');
writeln('1 - Закодировать');
writeln('2 - Раскодировать');
readln(i);
case i of
1: s := Encode(s, key);
2: s := Decode(s, key);
end;
Writeln(s);
end.
Var
s:string;
i,n,w:integer;
begin
writeln('Введите текст');
readln(s);
s:=s+' ';
n:=length(s);
for i:=1 to n do
if (s[i]='а') and (s[i+1]=' ') then
inc(w);
writeln('Кол-во = ',w);
<span>end.</span>
4*1024 = 4096 МБ
4096 - 800 = 3296 МБ (800 МБ есть, нужно ещё 3296 МБ)
3296 : 512 = 6.4 флешек, округляем получаем 7 флешек.
Ответ: 3
<span>var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
</span><span>begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.</span>