1. Как можно создавать модели в программе SketchUp? 2. Каковы функции инструментов управления пространством в про- грaммe SketchUp? 3. Для выполнения каких действий используется инструмент Враще- ние? 4. Как бы ты описал алгоритм использования инструмента Следуй за мной? 5. Какова роль инструмента Следуй за мной в построении Конуса и сферы

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 

#include <iostream>

#include <string>

#include <algorithm>

bool P(int value)

{

   std::string left = std::to_string(value);

   std::reverse(left.begin(), left.end());

   std::string right = std::to_string(value);;

   return left == right;

}

int main()

{

   int n;

   std::cin >> n;

   int count = 0;

   for (int i = 1; i <= n; ++i)

   {

       if (P(i))

       {

           count++;

       }

   }

   std::cout << "Count palindrome: " << count << std::endl;

   return 0;

}