В программной среде SketchUp создай модели следующих геометрических фигур:

1. Куб.

2. Шар.

3. Цилиндр.

4. Пирамида ​

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

begin
  var s:=ReadlnString;
  var c:=s.ToWords.Where(t->t.Length>1).SelectMany(w->w.Pairwise)
      .Select(t->t[0]+t[1]).GroupBy(t->t).Select(t->(t.Key,t.Count))
      .OrderByDescending(t->t[1]).ThenByDescending(t->t[0]).First[0];
  Writeln('Чаще других встречается цепочка "',c,'"')
end.

Пример
TWAS BRILLIG AND THE SLITHY TOVES DID GYRE AND GIMBLE IN THE WABE ALL MIMSY WERE THE BOROGOVES AND THE MOME RATHS OUTGRABE
Чаще других встречается цепочка "TH"

Замечание: ограничение на длину строки увеличено до 2 млн. символов.

#include <iostream> // подключаем библиотеки

#include <cstdlib>

using namespace std; // глобальное пространство имён

int main()

{

setlocale(LC_ALL,"russian"); // русский язык

int tenge;

int number = 0;

cout << "Введите сумму Вашего вклада: ";

cin >> tenge;

if(tenge==200000) // если вклад 200000

{

cout << "Ваш доход составит 13,5% в год. ";

number = number+1;

}

if(tenge==350000) // если вклад 350000

{

cout << "Ваш доход составит 14,2% в год. ";

number = number+1;

}

if(number==0) // если какая-то иная сумма

{

cout << "Требуется уточнить у менеджера процентную ставку для Вашей суммы вклада. Ожидайте.";

}

   system("pause");

   return 0; // код ошибки "0"

}