Условие этой задачи очень простое. Найдите наименьшее K такое, что K! делится на N без остатка. K! = 1·2·3·...·(K −1)·K.

К – это число, которое мы будем увеличивать на единицу, чтобы найти то минимальное, которое удовлетворяет заданию. N вводится пользователем. Оно будет критерием проверки деления нацело. var k, n, mult : integer; b : boolean; begin readln(n); k := 1; while (b = false) do begin mult := 1; for i:integer := 1 to k do mult := mult * i; if (mult mod n = 0) then Как только мы получили целое частное, сразу меняем false на true, и после этого цикл прекращает свою работу: b := true else k := k + 1; end; writeln(k:5, mult:5, n:5); end.