Предмет: Информатика,
автор: Sheldon2291
ПОМОГИТЕ ТУРБО ПАСКАЛЬ!
Факториалом числа m называется произведение натуральных чисел от 1 до m.
m!=1*2*3*..*m;
4!=1*2*3*4=24.
Требуется написать программу, которая подсчитывает количество факториалов между N и K(включительно).
ФОРМАТ ВХОДА ДАННЫХ: На вход подается два натуральных числа N и K, записанные через пробел. (1<N<K<2*10^18)
ФОРМАТ ВЫХОДА ДАННЫХ: выведите одно число - количество факториалов между N и K, включая границы.
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Русский язык,
автор: akzanrasit
Предмет: Информатика,
автор: imankulovaeaigera030
Предмет: Русский язык,
автор: karinaklorova
Предмет: Геометрия,
автор: Гамбид
Предмет: Алгебра,
автор: Линкоманка