2. Summun sonune co creanus to youtuma
Выполни задание со страницы 76 учебника (часть
здесь:
60​

сноска — это ссылка вне основного текста на источник информации, использованный при написании статьи, или комментарий. ссылка создаётся с соответствующих тегов или шаблонов, которые нужно вставить после поясняемой части текста.

в окончательном тексте сноски размещаются автоматически в разделе «примечания». также автоматически после фрагмента поясняемого текста ставится знак сноски (цифра или значок), связывающий поясняемый текст со сноской, а в «примечаниях» перед сноской ставится значок возврата к поясняемому тексту. если кликнуть мышкой по знаку сноски, то текст переместится к сноске, если по значку возврата — то к поясняемому тексту.

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