1.
var
A: array [1..10] of integer;
max, i: integer;
begin
for i:=1 to 10 do // заполнение массива
A[i] := random(100) - 50;
max := -51;
for i:=1 to 10 do // обработка массива
if (A[i] < 0) and (A[i] > max) then
max := A[i];
writeln(max);
end.
2.
var
A: array [1..1000] of integer;
kol, i, N: integer;
begin
readln(N);
for i:=1 to N do // заполнение массива
A[i] := random(100) - 50;
for i:=1 to N do // обработка массива
if A[i] mod 2 = 0 then
inc(kol);
writeln(kol);
end.
1) Подходит программа 4) 1212.
Маршрут такой: 0 - 3 - 1 - 4 - 2.
2) Точка старта должна быть на 4 шага на юг и 1 шаг на восток от сокровищ.
Как раз от старой березы, ага. :)
Тут все достаточно просто.
Всего 32 уникальных карты карты
32= 2^5 - значит получаем всего 5 бит информации
Для более подробного объяснения можно разделить карты на номинал и масти
Всего 4 масти в колоде
Для обозначения Масти нужно два бита
00 - пики
01 - буби
10 - черви
11 - крести
и 8 номиналов нужно 3 бита
000 - туз
001 - король
010 - дама
011 - валет
100 - десятка
101 - девятка
110 - восьмерка
111 - семерка
1.
Инструменты по умолчанию находятся в левой области программы. Убрать/Добавить окно с Инструментами можно нажав Window > Tools
2.
1 ) Номер монтажной области можно выбрать в раскрывающимся списке Artboard Navigation в левом нижнем углу документа.
2) Так же можно использовать расположенные в левом нижнем углу кнопки навигации по монтажным областям ( Next, Previous, First, Last ).
3) Перейти к монтажной области можно выполнив двойной щелчок по имени монтажной области на палитре Artboards, или используя палитру Navigator.
3.
Чтобы сохранить положения панелей/параметры отображения, необходимо нажать Window > Workspace > Save Workspace.
4.
Упорядочивание окон документа может быть полезно при работе с несколькими файлами и необходимости выполнять сравнение содержимого файлов или обмен содержимым между файлами.
Begin
for var v := 100 to 150 do begin //возраст от 100 до 150 лет
var q := Sqr(StrToInt(IntToStr(v)[1])) //Суммируем квадраты каждой цифры
+ Sqr(StrToInt(IntToStr(v)[2])) //из возможного возраста
+ Sqr(StrToInt(IntToStr(v)[3])); //и записываем его в q
for var d := 1 to 31 do begin //Берем день месяца от 1 до 31
if (q + d) = v then begin //Если q + день = возрасту
println('День:', D, ' Возраст: ', v); //Выводим сообщение
end;
end;
end;
end.