Question

Турбо паскаль! факториалом числа m называется произведение натуральных чисел от 1 до m. m! =1*2*3*..*m; 4! =1*2*3*4=24. требуется написать программу, которая подсчитывает количество факториалов между n и k(включительно). формат входа данных: на вход подается два натуральных числа n и k, записанные через пробел. (1

Answer 1

Var n,k,fact:int64;
c,i:longint;
Begin
readln(n,k);
fact:=1;
i:=2;c:=0;
while(fact<=k) do
Begin
if (fact>=n)and(fact<=k) then inc(c);
fact:=fact*i;
inc(i);
end;
writeln(c);
end.