У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 2; 2. раздели на b (b — неизвестное - id2044455720211203 от lilyavenkova 03.12.2021 05:53

Question

Информатика: У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 2; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Альфа увеличивает число на экране на 2, а выполняя вторую, делит это число на b. Программа для исполнителя Альфа — это последовательность номеров команд. Известно, что программа 11211 переводит число 50 в число 22. Определите значение b.

lilyavenkova · Accepted Answer

Var i: integer;  begin
for i:=1 to 9 do write(i);  writeln(10);
for i:=0 to 8 do write(i);  writeln(9);
for i:=1 to 2 do write('0');  for i:=1 to 7 do write(i);  writeln('8');
for i:=1 to 3 do write('0');  for i:=1 to 6 do write(i);  writeln('7');
for i:=1 to 4 do write('0');  for i:=1 to 5 do write(i);  writeln('6');
for i:=1 to 5 do write('0');  for i:=1 to 4 do write(i);  writeln(5);
for i:=1 to 6 do write('0');  for i:=1 to 3 do   write(i);  writeln('4');
for i:=1 to 7 do write('0');  for i:=1 to 2 do write(i);  writeln(3);
for i:=1 to 8 do write('0');  write('1');writeln('2');
for i:=1 to 9 do write('0');  writeln(1);
end.

Как сделать более кратко не знаю. Но эта программа работает.

MOGZ ответил