У исполнителя Утроитель две команды, которым присвоены номера 1. вычти один 2. умножь на три Запишите порядок команд в программе преобразования числа 5 в число 26, содержащей не более 5 команд, указывая лишь номера команд. (Например. 21211 – это программа умножь на 3 вычти 1 умножь на 3 вычти 1 вычти 1 которая преобразует число 2 в 13.) 2)Выполни линейный алгоритм 1. Дано число 50. 2. Умножь на 5. 3. Прибавь 19. 4. Умножь на 3. 5. Отними 22. Запиши результат 3)Проанализируй и запиши ответ, если a = 6; b = 13. это задание к картинке

1.   11221

2.   785

3.   38

Объяснение:

1.

5 в 26

Команды:

1. вычти один

2. умножь на три

Заменим команды на обратные:

1. прибавь один

2. раздели на три

И пойдём от большего числа к меньшему. Если в результате деления получаем целое число, то выполняем действие 2 команды. Если в результате деления получаем дробное число, то выполняем действие 1 команды.

26 / 3 = дробное число

26 + 1 = 27   (команда 1)

27 / 3 = 9   (команда 2)

9 / 3 = 3   (команда 2)

Дальше делить нет смысла, т.к. данное число (3) меньше того из которого надо получить 26 (5).

3 + 1 = 4   (команда 1)

4 + 1 = 5   (команда 1)

Запишем команды снизу вверх 11221

Проведем проверку используя первоначальные команды и идя от меньшего числа к большему.

5 - 1 = 4   (команда 1)

4 - 1 = 3   (команда 1)

3 * 3 = 9   (команда 2)

9 * 3 = 27    (команда 2)

27 - 1 = 26   (команда 1)

2.

1. Дано число 50

50

2. Умножь на 5

50 * 5 = 250

3. Прибавь 19

250 + 19 = 269

4. Умножь на 3

269 * 3 = 807

5. Отними 22

807 - 22 = 785

3.

a = 6       b = 13

P = 2 * (a + b) = 2 * (6 + 13) = 2 * 19 = 38

P = 38

//Pascal ABC.NET 3.1 сборка 1256

Var
 s,s1:string;
begin
readln(s);
if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
while pos(' в ',s)<>0 do
 begin
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
  s1:=s1+copy(s,1,pos(' в ',s)-1)+' на ';
  delete(s,1,pos(' в ',s)+2);
 end;
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
s:=s1+s;
writeln(s);
end.

Пример ввода 1:
запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь
Пример вывода 1:
запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь

Пример ввода 2(глубокие песни современной отечественной эстрады):
В в в в в в в в в в в в в в в в в в н.
Пример вывода 2:
На на на на на на на на на на на на на на на на на на н.

// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
const
  k=4; //количество классов
  u=18; // количество учеников в классе
var
  a:array[1..k,1..u] of real; // массив с ростом
  n:array[1..k] of integer; // массив результатов
  i,j:integer; // счетчики циклов
  m:real; // средний рост ученика в классе
begin
  for i:=1 to k do begin
    Writeln('Введите рост учеников ',i,'-го из классов');
    m:=0;
    for j:=1 to u do begin Read(a[i,j]); m:=m+a[i,j] end;
    m:=m/u;
    n[i]:=0;
    for j:=1 to u do
      if abs(a[i,j]-m)>5.0 then Inc(n[i]);
    end;
  Writeln('Количество учеников с ростом, отличающимся от среднего');
  Writeln('по каждому из классов более, чем на 5');
  for i:=1 to k do Write(n[i]:5)
end.

Пример решения для упрощенного случая, когда в классе на 18, а 5 учеников (чтобы меньше набирать)
Введите рост учеников 1-го из классов
168 174 181 172 175
Введите рост учеников 2-го из классов
162 173 170 158 183
Введите рост учеников 3-го из классов
157 185 159 168 167
Введите рост учеников 4-го из классов
170 173 176 168 171
Количество учеников с ростом, отличающимся от среднего
по каждому из классов более, чем на 5
    2    3    3    0