Найти нок('x' и его суммы(x2)) например: 26=x; x2=6+2=8; + найти нок или 129=x; x2=1+2+9=12; + найти нок но только ввиде !

{ Паскаль }
Function NOD(a,b : Longint) : Longint;
Begin
  If (a mod b)=0 then NOD:=b else Nod:=NOD(b,a mod b);
end;

Function NOK(a,b : Longint) : Longint;
Begin
  NOK:=abs(a*b) div NOD(a,b);
End;

Function SumCifr(A : Longint) : Integer;
Begin
  If A>0 then SumCifr:=(A mod 10) +SumCifr(A div 10) else SumCifr:=0;
End;

Var x : Integer;
Begin
  Readln(x);
  Writeln(NOK(x,SumCifr(x)));
end.

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

var c, w: integer;

procedure check;

begin

 var (a, b) := (Random(0, 20), Random(0, 20));

 Print($'{a}*{b}=');

 if a * b = ReadInteger then begin inc(c); Println('Правильно') end

 else begin inc(w); Println('Неправильно') end;

end;

procedure res;

begin

 Println($'Задано вопросов {c+w}');

 Println($'Правильных {c}({(c*100)/(c+w):f1}%)');

 Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');

end;

begin

 var start := true;

 while start do

 begin

   Println('Проверим?(0/1)');  

   if ReadInteger = 0 then

   begin start := false; res; end

   else check;

 end;

end.

Пример в приложении.

Для того, чтобы выиграть, первый ход выигрывающего игрока должен быть - 2 камня. Тогда останется 5 камней. Он сможет взять от 1 до 3, оставив 4, 3 или 2 камня. И при любом его ходе (от 1 до 3) вы сможете "сподвигнуть" его взять последний (проиграть, одним словом).

Представьте:

Вы взяли 2 камня (5 осталось)Он взял 1 камень (4 осталось)Вы взяли 3 камня (1 осталось) - ему ничего не остается, кроме как взять последний и проиграть

Или :

Вы взяли 2 камня (5 осталось)Он взял 2 камня (3 осталось)Вы взяли 2 камня (1 осталось) - он возьмет последний. Ему придется.

Или:

Вы взяли 2 камня (5 осталось)Он взял 3 камня (2 осталось)Вы взяли 1 камень (1 остался) - он возьмет последний