A)
var
ch1,ch2:char;
begin
readln(ch1,ch2);
writeln(ch1,'=',integer(ch1));
writeln(ch2,'=',integer(ch2));
end.
б)
var
a,b,c:char;
begin
readln(a,b,c);
writeln('Результат сцепления:',a+b+c);
end.
<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.Может
2.Не может
-_____________________________________-
А В неВ А+неВ не(А+неВ)
0 0 1 1 0
0 1 0 0 1
1 0 1 1 0
1 1 0 1 0
? - фальшивая
+ - настоящая
dif - знание о весе фальшивой (больше или меньше)
vs - взвешивание
=> - итог взвешивания
1 откладываем
1) 7? vs 7?
if == => 14+ 7? goto 2)
if <> => 7+ 14? goto
2) 4? vs 4+
if == => 18+ 3? goto 3)
if <> => 10+ 4? goto
3) 2? vs 2+
if == => 20+ 1? goto 4)
if <> => 19+ 2? goto
4) 1? vs 1+
if == => фальшивая та что отложена вначале
if <> => нашли