<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>
Var
x,y : integer;
begin
Writeln('Введите координаты x: ');
Read(x);
Writeln('Введите координаты y: ');
Read(y);
if (x>2) or (x<-2) then
Writeln('Принадлежит') else Writeln('Не принадлежит');
<span>end.</span>
1 1112
2 2022112120
3 110131121
4 1221
Номер2 1-д 2-а 3-б.
Другие не знаю.
Может быть этот сайт вам как-то поможет
http://pas1.ru/taskcycle