Дана строка символов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Найти количество слов, начинающихся с буквы б Желательно на паскале

===== PascalABC.NET =====

begin

 ReadString.ToWords.Count(c -> c[1].ToLower = 'б').Print

end.

#include <iostream>

using namespace std;

int a, b, numb;

bool init;

int main()

{

do {

 cout << "Input a b: ";

 cin >> a >> b;

 if ((a > b) || (a <= 0) || (b <= 0))

  cout << "Input error! Try again" << endl;

} while ((a > b) || (a <= 0) || (b <= 0));

 

for (int i = a; i <= b; i++) {

 init = true;

 numb = i;

 do {

  if (numb % 10 == 0)  

   init = false;

  else if ((i / (numb % 10) * (numb % 10)) != i)

   init = false;

  numb /= 10;

 } while (numb != 0);

 if (init == true)  

  cout << i << " ";

}

return 0;

}

1) 73  = 2201 (Целая часть числа находится делением на основание новой это 3)

73/3 сотаток 1; 24/3 остаток 0; 8/3 остаток 2;  6/2 остаток 2; смотрим справа на лево 2201

2) 222 = 26

2223 = 2∙32+2∙31+2∙30 = 18+6+2 = 26 v10  

3) АВС = 2748

ABC v16 = 10∙16 v2+11∙16 v1+12∙16 v0 = 2560+176+12 = 2748 v10

4) 645 = 10040

645 делим на 5 остатки получаем 0, 4, 0, 0, 1

5) 123 = 27

123 v4 = 1∙4 v2+2∙4 v1+3∙4 v0 = 16+8+3 = 27 v10

6) 64 = 1000000 Делим все на два, остатки от деления получаются 0000001, затем справа на лево.

7) 572 = 378.  572 v8 = 5∙8 v2+7∙8 v1+2∙8 v0 = 320+56+2 = 378 v10

8) 187 = 273. Делим на 8, 187/8 (остаток 3)  23/8 (остаток 7) брали на 2

с права на лево 372

9) ВА1 = 2977  (BA116 = 11∙162+10∙161+1∙160 = 2816+160+1 = 2977 v10)

10) 3540 = DD4 (3540/16 (4) = 221/16=13), 13 =D, 4. Получилось: 354010 = DD4 v16