3. какие имена записаны неверно и почему а) hgu3 б) пол в) 4hfy г) _тма д) _dvm 4. перечислите типы данных и их обозначения.​

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.

 

На языке C++ это:

#include <iostream>

using namespace std;

int main()

{

   int a = 1;

   int b = 2;

   int c = 3;

   int d = 4;

   int e = 5;

   int f = 6;

   int g = 7;

   int h = 8;

   int j = 9;

   int k = 10;

   cout << a << b << c << d <<  e << f << g << h << j << k << endl;

   cout << a << c << e << g << j;

   

   

   

   

   

   

   

   return 0;

}

компилятор https://www.onlinegdb.com/online_c++_compiler

Объяснение: