<span>Пароль на папку (по крайней мере под WinXP) поставить нельзя. Но можно ограничить или вовсе закрыть доступ к папке (или к отдельным файлам) для других пользователей Вашего компьютера. Права доступа определяются в свойствах папки (файла). Подробные инструкции могу дать только на английском, поскольку мои винды не русские. </span>
<span>Итак: </span>
<span>1) Открыть папку (или каталог), содержащую ту папку, с которой Вы хотите работать.</span>
<span>2) В меню: Tool -> Folder Options -> View -> Use simple file sharing (Recommended) ==> Снять галочку нафиг! Подтвердить изменения.</span>
<span>3) В свойствах защищаемой папки выбрать панель Security.</span>
<span>4) Если в верхнем окошке перечислены пользователи, чьи права Вы хотите ограничить, то просто выбирайте их по одному и в нижнем окошке ставьте галочки против соответствующих действий в графе "Deny" ("запретить").</span>
<span> Если в верхнем окошечке нужных пользователей нет, то их можно внести туда лапками с помощью кнопки "Add..." прямо под окошком. После чего опять-таки проставить все необходимые запреты.</span>
<span>--------------------------</span>
<span>ВНИМАНИЕ!!! Не устанавливайте запреты для ГРУПП и ДОМЕНОВ, в которые входите Вы сами - Вас же потом и не подпустят к Вашей собственной папке!!! Блокируйте только отдельных пользователей "поименно"!!!</span>
1. Умножаем 1024 на 2048, чтобы получить количество пикселей:
1024 * 2 048 = 2 097 152 пикс.
2. 1 пикс = 4 байт, значит:
2 097 152 * 4 = 8 388 608 байт
3. Переводим байты в мегабайты:
8 388 608 байт = 8 мбайт
Ответ: 8 мбайт.
<span>НЕ (Х<6 ) И (Х>7) = (X>=6)И(X>7) = (X>7)
</span>
5 и 6 меньше 7 - условие не выполняется.
7 равно 7, условие опять не выполняется
8 > 7 - условие выполняется.
Ответ: 4.
Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.
Задача № 1)
Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать.
Задача №2)
uses crt;
var m:array[1..100,1..100] of integer;
i,i1,j,str,stb,temp:integer;
begin
clrscr;
writeln('Пожалуйста введите число строк массива: '); readln(str);
writeln('Пожалуйста введите число Столбцов массива: '); readln(stb);
clrscr;
writeln('Массиа из ',str,' строк, и из ',stb,' столбцов успешно создан!');
<span>writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
m[i,j]:=random(80)+1;
write(m[i,j]:3,' ');
end;
writeln;
end;
writeln;
writeln(' отсортирован по убыванию');
writeln;
for i1:=1 to str do
for i:=1 to str-1 do
for j:=i+1 to str do
if m[i1,i]<m[i1,j] then begin temp:=m[i1,i]; m[i1,i]:=m[i1,j]; m[i1,j]:=temp;end;
writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
write(m[i,j]:3,' ');
end;
writeln;
end;
readkey;
<span>end.
Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело</span></span>
