Данная программа вычисляет разность факториалов R=u! - v!. Напомним, что факториал n! представляет собой произведение n чисел натурального ряда: 1*2*3*….*n.
Как фактические параметры функции RAZ использовались переменные …
ПРОГРАММА 17;
ФУНКЦИЯ RAZ(N);
НАЧАТЬ ФУНКЦИЮ
||P:=1;
||НЦ ДЛЯ I:=1 ДО N
||||P:=P*I
||КЦ;
||RAZ:=P
КОНЕЦ ФУНКЦИИ;
НАЧАТЬ ПРОГРАММА
||ПИСАТЬ('ВВЕДИТЕ U, V:' );
||ЧИТАТЬ (U, V);
||R:=RAZ(U)-RAZ(V);
||ПИСАТЬ('РАЗНОСТЬ ФАКТОРИАЛОВ =', R)
КОНЕЦ ПРОГРАММЫ.