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

Question

Информатика

Маня

15 июня, 02:49

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

+3

Ответы (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