С простым жестом касания (или жестом, соответствующим ему на Вашем аксессуаре) Вы можете выполнить указанные ниже действия.
Открыть меню AssistiveTouch
Переход на экран «Домой»
Выполнить двойное касание
Выполнить жесты несколькими пальцами
Выполнить жесты прокрутки
Вызов Siri
Доступ к Пункту управления, уведомлениям, экрану блокировки или Переключателю приложений
Настройка громкости на iPhone
Встряхнуть iPhone
Как сделать снимок экрана
Использовать 3D Touch (на поддерживаемых моделях iPhone)
Использовать Apple Pay
Использовать функцию «Экстренный вызов — SOS»
Озвучить содержимое экрана
Настроить параметры автонажатия
Перезагрузка iPhone
Объяснение:
z:string[10];
x:string[2];
i,j,k,m: integer; //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0; //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
begin;
for m:=1 to 10 do
if St[j]=z[m] then inc(k);
end;
if k=0 then
begin;
writeln('в тексте нет цифр');
exit;
end; //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.