Вот алгоритм, описанный на псевдокоде. Алг QQ Цел A, B, X, Y Нач Ввод A, B X := A Y := B Пока Не X = Y НЦ Если X 1? Например, я понимаю, что НЕ 1 будет 0, а НЕ 0 будет 1. А как понимать этот оператор как в примере выше, когда получается НЕ 12?!

1) Ақпаратты бағдарламаға түрлендіру тапсырмасын орындайтын және барлық есептеу процестерін басқаруды жүзеге асыратын компьютердің орталық бөлігі.

2) Мақсатына сәйкес процессор регистрлері ерекшеленеді: аккумулятор - арифметикалық және логикалық операциялардың аралық нәтижелерін және енгізу-шығару нұсқауларын сақтау үшін қолданылады; ... контроллерлер - процессордың күйін басқаратын ақпараттарды, сонымен қатар жүйелік кестелердің адрестерін сақтайды.

3) Процессордың негізгі сипаттамалары:

• тактілік жиілік;

• разрядтылық;

• жұмыс кернеуі;

• кэш-жады өлшемі.

/// PascalABC.Net 3.4.2, 2053(11.05.19)

var

   a, n: longint;

   text: textfile;

function myMod(num, power, divider: longint): longint;

var

   rest, i: longint;

begin

   rest:=1;

   divider := abs(divider);

   for i := 1 to power do

   begin

       rest := rest * num;

       rest := rest mod divider;

   end;

   myMod := rest;

end;

begin

   assign(text, 'input.txt');

   {rewrite(text);

   writeln(text, 109);

   close(text);}

   reset(text);

   read(text, a);

   writeln('a=', a);

   close(text);

   n := 1;

   repeat

       n := n + 1;

   until MyMod(n, n, a) = 0;

   assign(text, 'output.txt');

   rewrite(text);

   writeln(text, n);

   close(text);

   {reset(text);

   read(text, n);

   writeln('n=', n);

   close(text);}

end.