Question

На строки: Дан текст из букв и цифр. Заменить все нули в тексте на букву А,а все единицы на букву М. Подсчитать число замен. Pascal ABC.Net type const

Answer 1

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

Answer 2

Для замены нулей на букву А и единиц на букву М в данном тексте, вы можете использовать следующий код на Pascal ABC.Net:

program ReplaceZerosAndOnes;
var
  text: string;
  i, count: integer;
begin
  text := 'Дан текст из букв и цифр. Заменить все нули в тексте на букву А, а все единицы на букву М.';
  count := 0;
  
  for i := 1 to Length(text) do
  begin
    if text[i] = '0' then
    begin
      text[i] := 'А';
      count := count + 1;
    end
    else if text[i] = '1' then
    begin
      text[i] := 'М';
      count := count + 1;
    end;
  end;
  
  writeln('Измененный текст: ', text);
  writeln('Число замен: ', count);
end.

Этот код пройдет по каждому символу в тексте и заменит нули на букву А и единицы на букву М. Затем он выведет измененный текст и число замен.

Примечание: В данном коде предполагается, что переменная `text` содержит исходный текст, который нужно изменить. Если вы хотите вводить текст с клавиатуры, вы можете использовать функцию `Readln` для чтения строки с клавиатуры и сохранения ее в переменную `text`.

Например:

program ReplaceZerosAndOnes;
var
  text: string;
  i, count: integer;
begin
  writeln('Введите текст:');
  readln(text);
  count := 0;
  
  // Остальной код здесь...
end.

Теперь вы можете запустить эту программу и ввести свой текст для замены нулей и единиц.