Некий исполнитель умеет выполнять две команды: DEL 3 — удаляет из числовой последовательности все цифры, стоящие на местах, кратных указанному числу (если это возможно);

MOVE — перемещает первую цифру последовательности в конец.

Программа для исполнителя — это последовательность команд. Сколько различных последовательностей можно получить из последовательности 123456 с программы, которая содержит ровно 4 команды?

2)
У исполнителя Сумматор есть три окна, в каждом из которых написано по числу, а также три команды, которым присвоены номера:

1) запиши сумму чисел в первое окно,

2) запиши сумму чисел во второе окно,

3) запиши предыдущее число в третье окно.

Выполняя первую из них, Сумматор складывает все числа в окнах и заменяет этой суммой число в первом окне, выполняя вторую, складывает все числа и заменяет этой суммой число во втором окне, а выполняя третью, копирует последнюю полученную сумму в третье окно, оставляя остальные окна без изменений. Если команда номер 3 выполняется первой, то в третье окно записывается 0. Запишите порядок команд в программе получения из тройки чисел 1, 2, 3 тройки чисел 20, 13, 6, содержащей не более 5 команд. В ответе укажите только номера команд.

Program Massiv;
{$APPTYPE CONSOLE}
uses  SysUtils;

var  i: integer; // счетчик 
 a: array[1..10] of Integer; // объявляем массив из 10 целых элементов
begin
// Вводим элементы массива с клавиатуры 
for i:=1 to 10 do  // цикл  
begin     
  writeln('vvedite element massiva i nagmite >>ENTER');     
  write('a[',i,']=');     
  write(a[i]);     
  read(a[i])   
end; 
i:=1;
j:=0;// счетчик для поиска 3-го элемента 
  repeat 
    if a[i]<=0   
      then
        inc(i) // переходим к следующему элементу        
      else     
        begin       
          inc(j); // отмечаем найденный положительный элемент      
          inc(i)  // переходим к следующему элементу     
        end; 
   until (j=3) or (i=11); // До тех пор пока не найден 3-й положительный элемент
                                  // либо не проверен весь массив
 if j=3   
   then // есть как минимум три положительных элемента  в массиве      
     writeln('3 Pologitelniy element a[',i-1,']=', a[i-1])   
   else // в массиве меньше трех положительных элементов     
     writeln('Net 3 pologitelnogo eltmenta = ');
readln; 
readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

program same;

var

 number: string;

begin

 read(number);

 if ((number[1] = number[2]) or (number[2] = number[3]) or (number[1] = number[3])) then

   writeln('Да')

 else

   writeln('Нет');

end.

Объяснение:

program same;  // Название программы

var

 number: string;  // Создание строковой переменной number

begin  // Начало программы

 read(number);  // Считываем значение переменной number с клавиатуры

 if ((number[1] = number[2]) or (number[2] = number[3]) or (number[1] = number[3])) then  // Если ((1 цифра = 2 цифре) ИЛИ (2 цифра = 3 цифре) ИЛИ (1 цифра = 3 цифре))

   writeln('Да')  // Выводим Да

 else  // Иначе

   writeln('Нет');  // Выводим Нет

end. // Конец программы