Ребзи какой проц взять ryzen 5 3600 или 7 2700 под 1650 супер или 1660 супер

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Текст:');
  var c:=ReadlnChar('Буква:');
  Writeln('Буква встречается ',s.Where(p->p=c).Count,' раз(а)')
end.

Пример
Текст: а роза упала на лапу азора
Буква: а
Буква встречается 8 раз(а)

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Текст:');
  var m:=s.MatchValues('(\w)\1{1}').Distinct;
  foreach var cc in m do s:=s.Replace(cc,cc[1]);
  s.Println
end.

Пример
Текст: стеклянный оловянный длинношеее искусство
стекляный оловяный длиношее искуство

В пе­ре­мен­ной s сум­ми­ру­ют­ся раз­но­сти эле­мен­тов, иду­щих друг за дру­гом. Для того, чтобы s была наи­мень­шей после вы­пол­не­ния про­грам­мы, не­об­хо­ди­мо, чтобы раз­ность эле­мен­тов была наи­мень­шей. По­сколь­ку мас­сив це­ло­чис­лен­ный, наи­мень­шая раз­ность равна еди­ни­це. Ал­го­ритм об­ра­ба­ты­ва­ет пер­вые де­сять эле­мен­тов мас­си­ва, сле­до­ва­тель­но, наи­мень­шее зна­че­ние, ко­то­рое может иметь пе­ре­мен­ная s после вы­пол­не­ния дан­ной про­грам­мы, равно 27 + 10 · 1 = 37. ответ: 37.