Пусть х - основание системы счисления
Составляем уравнение
1*x^2+2 = 2*(1*x+2)+1
x^2 - 2x + 2-4-1 = 0
x^2 - 2x - 3 = 0
корни 3 и -1
Значит х = 3 (больше 0)
По предоставленному коду и своему опыту могу предположить что суммирует все четные элементы матрицы
1)
Var
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to 9 do
WriteLn(i,'*',n,' = ',i*n);
End.
2)
Var A,B:integer;
Begin
WriteLn('Введите натуральное число');
ReadLn(A);
B:=A mod 10;
While (A div 10 > 0) do
A:=A div 10;
if A>B then WriteLn('Первая больше')
else if A<B then WriteLn('Последняя больше')
else WriteLn('Цифры равны')
End.
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
if (number mod 2 = 0) then
writeln('Chislo ', number, ' chetnoe')
else
writeln('Chislo ', number, ' nechetnoe');
readln();
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>
