Найдите наименьшее к такое, что к факториал делится на n без остатка

Question

Информатика

Тонюха

8 декабря, 04:43

Найдите наименьшее к такое, что к факториал делится на n без остатка

+2

Ответы (1)

Знаете ответ?

Корнилыч · Answer 1

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