Найдите наименьшее к такое, что к факториал делится на n без остатка
Найдите наименьшее к такое, что к факториал делится на n без остатка
Гость
Ответ(ы) на вопрос:
Гостьvar k,n,f:integer;
begin
write('n=');readln(n);
k:=1;f:=1;
while f mod n <> 0 do
begin k:=k+1; f:=f*k; end;
writeln('k=',k);
end.
Пример:
n=30
k=5
Не нашли ответ?
Похожие вопросы