Некий исполнитель умеет выполнять две команды: DEL 3 — удаляет из числовой последовательности все цифры, стоящие на местах, кратных указанному числу (если это возможно);
MOVE — перемещает первую цифру последовательности в конец.
Программа для исполнителя — это последовательность команд. Сколько различных последовательностей можно получить из последовательности 123456 с программы, которая содержит ровно 4 команды?
2)
У исполнителя Сумматор есть три окна, в каждом из которых написано по числу, а также три команды, которым присвоены номера:
1) запиши сумму чисел в первое окно,
2) запиши сумму чисел во второе окно,
3) запиши предыдущее число в третье окно.
Выполняя первую из них, Сумматор складывает все числа в окнах и заменяет этой суммой число в первом окне, выполняя вторую, складывает все числа и заменяет этой суммой число во втором окне, а выполняя третью, копирует последнюю полученную сумму в третье окно, оставляя остальные окна без изменений. Если команда номер 3 выполняется первой, то в третье окно записывается 0. Запишите порядок команд в программе получения из тройки чисел 1, 2, 3 тройки чисел 20, 13, 6, содержащей не более 5 команд. В ответе укажите только номера команд.
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
b[i,j]:=random(-10,10);
write(b[i,j]:4);
end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
c[i,j]:=a[i,j]*b[i,j];
write(c[i,j]:4);
end;
end;
end.
2)var a:array[1..1000,1..1000] of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
writeln('A array:');
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
for i:=1 to n do begin;
for j:=1 to n do
u+=a[i,j];
if u<0 then inc(k);
u:=0;
end;
writeln;
write('Result:',k);
end.