1. информация и информационные процессы. свойства - вопрос №13635551 от натик65 04.06.2021 05:24

Question

Информатика: 1. информация и информационные процессы. свойства информации. единицы измерения информации. 2. представление данных в компьютере. системы счисления. кодирование данных. представление различных типов данных. 3. аппаратные средства компьютера. развития вычислительной техники. принцип открытой архитектуры. функциональный состав персонального компьютера. 4. классификация программных средств компьютера. операционная система windows. 5. информационная безопасность. вредоносные программы. 6. алгоритмизация

натик65 · Answer

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.