Var b,c:real;
<span>begin </span>
<span>b:=1; </span>
<span>c:=2; </span>
<span>repeat </span>
<span>b:=b+1; </span>
<span>c:=c*b; </span>
<span>until b=4; </span>
<span>writeln('Да'); </span>
<span>end. </span>
<span>s=input('строка: ');
</span><span>st='';
</span><span>k=1;
</span><span>ch=s[0];
</span><span>for i in range(1,len(s)):
</span><span> if (s[i]!=ch):
</span><span> st=st+ch+str(k);
</span><span> k=1;
</span><span> ch=s[i];
</span><span> else: k+=1;
</span><span>st=st+ch+str(k);
</span><span>print('новая строка: ',st);
</span>строка: aaaAAbbCCCCddDdffFf
<span>новая строка: a3A2b2C4d2D1d1f2F1f1
</span>
С текстовой: клавиатура, телефон, домофон, МФУ, портативный DVD проигрыватель.
С численной: калькулятор, клавиатура, телефон.
Со звуковой: компьютер, телефон, радио, телевизор.