В компьютерной лаборатории 100m компьютеров, из них 33m- Opteron, 22m- Pentium 4, 16m- Intel Pentium и 17m- Intel Core i5, где m - основание некоторой системы счисления. В какой системе счисления учитывали компьютеры?
m = ?

1. Страница — одна сторона листа (или листа) из бумаги, пергамента или другого материала (или электронных средств массовой информации) в книге, журнале, газете, или другой набор листов, на которых текст или иллюстрации могут быть напечатаны, написаны или нарисованы, для создания документов.
2. Протокол передачи данных — набор определённых правил или соглашений интерфейса логического уровня, который определяет обмен данными между различными программами.
3. Web-страница - гипертекстовый документ в интернете
4. Гиперте́кст — термин, обозначающий систему из текстовых страниц, имеющих перекрёстные ссылки, составленные как по вертикали, так и по горизонтали.
5. Провайдер— организация, предоставляющая услуги доступа к сети Интернет и иные связанные с Интернетом услуги.
6. Телевизор, телевизионный приёмник — приёмник телевизионных сигналов изображения и звукового сопровождения, отображающий их на экране и с динамиков.
7. Сайт, или веб-сайт— одна или несколько логически связанных между собой веб-страниц; также место расположения контента сервера.

1. "Школьное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r