Помогите решить задачу "Pascal ABC"

[Alexander91]

Помогите решить задачу "Pascal ABC"

Составить программу. Вводится число. Найти произведение действительных чисел меньших вводного числа. Произведение разделить на количество множителей. Вывести на экран произведение, количество множителей, результат деления.

 

[Vladimir_S]

Задача не имеет решения. Любой, сколь угодно малый отрезок числовой оси содержит континуум (бесконечное множество) действительных чисел.

 

[Alexander91]

тогда пусть они по условию будут не действительные, а НАТУРАЛЬНЫЕ - тогда ведь можно составить программный код?
была бы очень благодарна tehnoangel

 

[Vladimir_S]

Тогда еще вопрос: "количество множителей" - чего? Исходного числа?

 

[Alexander91]

да допустим вводим мы число 8 и нужно все другие натуральные числа до него, а именно 1,2,3,4,5,6,7 перемножить между собой.

 

[Alexander91]

то есть множителей получается 7

 

[Vladimir_S]

то есть множителей получается 7

Естественно. Тогда их всегда N-1, где N - вводимое число.
Итак, уточним:
1. Ввести N
2. Вычесть из него 1.
3. Найти (N-1)!
4. Найти (N-1)!/(N-1) = (N-2)!
Так? Или может быть, как-то не так? Потому что если так, то уж очень это всё глупо сформулировано.

 

[Alexander91]

да получается что так =)
ввели например, сначала 8, потом перемножили его составляющие получили 5040, и потом поделил на 7 и получили 720… а в конце вывели на экран результат сначала умножение 5040, потом количество множителей то самое N-1 и в конце сам итог 720.

 

[Vladimir_S]

да получается что так =)
ввели например, сначала 8, потом перемножили его составляющие получили 5040, и потом поделил на 7 и получили 720… а в конце вывели на экран результат сначала умножение 5040, потом количество множителей то самое N-1 и в конце сам итог 720.

Хорошо, пожалуйста. Только предупреждаю, что никакой мерзопакости типа Паскаля АВС я на своих компьютерах не держу, потому написано в среде Free Pascal. Надеюсь, подойдёт:

Var
 N,i,Res:Integer;
Begin
 Write('N (>1) = ');
 Readln(N);
 Res:=N-1;
 For i:=N-2 downto 1 do Res:=Res*i;
 Writeln(Res);
 Writeln(N-1);
 Writeln(Res div (N-1));
 Readln
End.

 

[Alexander91]

спасибо :dog: