Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Найдите наименьшее к такое, что к факториал делится на 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