3) у исполнителя калькулятор две команды:
1 – прибавь 4,
2 – вычти 3.
первая из них увеличивает число на экране на 4, вторая – уменьшает его на 3 (отрицательные числа допускаются). программа для калькулятора – это последовательность команд. сколько различных чисел можно получить из числа 1 с программы, которая содержит ровно 5 команд?

1)
begin
  var s1:=ReadlnString('Текст:');
  Writeln('k = ',s1.Where(c->Pos(c,'01')>0).Count);
  var s2:=s1.Select(c->c='0'?'A':c).Select(c->c='1'?'M':c);
  s2.Println;
end.

Пример:
Текст: Текст с 1 и 0: 110+101=1011
k = 12
Текст с M и A: MMA+MAM=MAMM

2)
var s1,s2:string;
i,k:integer;
begin
writeln('Введите текст:');
readln(s1);
k:=0;
s2:='';
for i:=1 to length(s1) do
 if s1[i]='0'
  then begin s2:=s2+'A'; k:=k+1; end
  else if s1[i]='1' then begin s2:=s2+'M'; k:=k+1; end else s2:=s2+s1[i];
writeln(s2);
writeln('k = ',k);
end.

Пример:
Введите текст:
Текст с 1 и 0: 110+101=1011
Текст с M и A: MMA+MAM=MAMM
k = 12

а) 370₁₀ = 101110010₂

б) 244₁₀ = 340₈

в) 670₁₀ = 29E₁₆

Объяснение:

а)

370 / 2  = 185 + остаток 0

185 / 2  = 92 + остаток 1

92 / 2  = 46 + остаток 0

46 / 2  = 23 + остаток 0

23 / 2  = 11 + остаток 1

11 / 2  = 5 + остаток 1

5 / 2  = 2 + остаток 1

2 / 2  = 1 + остаток 0

1 / 2  = 0 + остаток 1

записываем остатки снизу вверх

370₁₀ = 101110010₂

б)

224 / 8  = 28 + остаток 0

28 / 8  = 3 + остаток 4

3 / 8  = 0 + остаток 3

записываем остатки снизу вверх

244₁₀ = 340₈

в)

670 / 16 = 41 + остаток 14

41 / 16 = 2 + остаток 9

2 / 16 = 0 + остаток 2

записываем остатки снизу вверх

670₁₀ = 29E₁₆

В качестве цифр шестнадцатеричной системы счисления обычно используются цифры от 0 до 9 и латинские буквы от A до F.

A₁₆ = 10₁₀   B₁₆ = 11₁₀   C₁₆ = 12₁₀   D₁₆ = 13₁₀   E₁₆ = 14₁₀   F₁₆ = 15₁₀