Тут не очень длинная строка получилась, её можно обработать и в таблице Excel.
Собственно, я составил таблицу для решения этой задачи (она прилагается к решению).
Самое большое преобразование там- это расстановка символов в обратном порядке.
Результат в таблице- после всех возможных замен символов BAB, в полученной строке осталось 24 буквы B.
№4
а) 1111001₂= 1×2⁰+1×2³+ 1×2⁴+ 1×2⁵+1 ×2⁶ = 1+8+16+32+64=121₁₀
б) 1000110₂=1 ×2¹+1 ×2²+1× 2⁶=2+4+64=70
№3
136₁₀= 10001000₂
136:2=68 остаток 0
68:2= 34 остаток 0
34:2= 17 остаток 0
17:2= 8 остаток 1
8:2=4 остаток 0
4:2=2 остаток 0
2:2=1 остаток 0
1:2=0 остаток 1 (остатки записываются в ответ снизу в верх)
254₁₀= 11111110₂
254:2= 127 остаток 0
127:2=63 остаток 1
63:2=31 остаток 1
31:2= 15 остаток 1
15:2=7 остаток 1
7:2=3 остаток 1
3:2 =1 остаток 1
1:2=0 остаток 1
у которых кодировка utf-8 или windows1251, а у других кодировок текста нельзя
Program p1;
Var a,b,c,s,i:integer;
Begin
Write('Введите первый член прогрессии: ');
Readln(a);
Write('Введите разность чисел прогрессии: ');
Readln(b);
Write('Введите количество чисел прогрессии: ');
Readln(c);
for i:=1 to c do
Begin
s:=s+a;
a:=a+b;
End;
Writeln('Сумма членов прогрессии: ',s);
<span>End.</span>