Напиши запрос (база данных ms access): записи, в которых названия стран заканчиваются на "ва".

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

472

Объяснение:

Числe в двоичной системе счисления, состоящему из n единиц, в десятичной системе счисления соответствует число 2^n-1.

Например:

Десятичная                       Двоичная система

система счисления           система счисления

2^1-1=1                                              1

2^2-1=3                                             11

2^3-1=7                                             111

2^8-1=255                                        111111

Извлечем логарифм из числа 4567 по основанию два и возьмем из полученного результата целую часть.

[㏒ 4567]=12

2^12=4096

Вычтем из полученного числа 1

4096-1=4095

Полученному числу соответствует 12 единиц в двоичной системе счисления.

Теперь остается найти искомое число:

4567-N=4095

N=4567-4095=472