Откройте «Настройки» и пролистайте страницу вниз.
В общем списке войдите во вкладку «Универсальный доступ».
Появится перечень возможностей, в котором тапните по «Виртуальный контроллер».
Следующим выберите «Переключатели».
Система допускает создание 1-10 профилей виртуальных контроллеров. Чтобы настроить первый, клацните по «Добавить новый».
В перечне источников тапайте на «Экран».
Откроется следующее окно. Выберите в нем «На весь экран».
В подкатегории «Система» тапните по «Касание».
Сверху нажмите на «Назад», чтобы выйти из переключателя и открыть дополнительное меню.
Теперь выберите «Набор правил», по которым будет работать автокликер.
Появится перечень доступных действий, где пользователю нужно нажать «Создание нового набора правил».
В поле «Название» введите имя контроллера, а затем жмите по «Назначить переключатель».
Снова жмите «На весь экран».
Появится список функций, доступных для надстройки. В подгруппе «Удержание на точке» вам нужен «Собственный жест».
В следующем окне предложат сделать движения, которые в последующем будут автоматически повторяться на экране. Делайте касание по экрану или свайпы в той зоне, где в игре или приложении понадобится повторить тапы. После “натапывания”, жмите «Стоп» в правом нижнем углу, а затем «Сохранить» в верхнем.
Вернитесь к предыдущему меню, тапнув по «Назад».
Пользователь вернется во вкладку «Набор правил», где нужно перейти в «Запуск набора правил».
Переключите галочку с пункта «Нет» на название автоматического кликера, который создал юзер.
Снова вернитесь во вкладку «Универсальный доступ» и откройте «Универсальная команда».
Сверху перечня нажмите по «Виртуальный контроллер
На третьей строчке, видимо, ошибка, и вместо Вывод(x) на самом деле Ввод(x).
var x: integer; y: real; begin Readln(x); y := (10 + 2 * x) / (11 - x); Writeln(y); end.При x = 3 переменная y = 2Задание 3var number, resultNumber, i: integer; begin resultNumber := 1; for i := 1 to 3 do begin Readln(number); resultNumber := resultNumber * number; end; Writeln(resultNumber); end.Задание 4var a: integer; b, c: real; begin a := 3; b := -1.5; c := 6 - 2 * b; c := c - a; Writeln(c); end.Результатом вывода будет число 6Задание 5var x, y, z: integer; begin x := 8; y := 2; if (x > y) then z := x - y else z := y + x; Writeln(z); end.
Program n1;
var sum,k,a: integer;
begin
sum:=0;
k:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a;
k:=k+1;
readln(a);
end;
write('сумма: ',sum,'; срзнач: ',sum/k);
end.
2)
Program n2;
var a,c,sum: real;
k: integer;
begin
k:=1;
readln(a,c);
sum:=a;
repeat
sum:=sum+a*0.25;
k:=k+1;
until sum>=c;
write(k);
end.