НП
Николай Погожев
Написать программу вычисления произведения
написать программу вычисления произведения n чисел т. е. 1*2*3...*n, причём, если n=0 или n=1, то произведение равно 1. Число множителей не должно превышать 33.
написать программу вычисления произведения n чисел т. е. 1*2*3...*n, причём, если n=0 или n=1, то произведение равно 1. Число множителей не должно превышать 33.
Рекурсивный алгоритм вычисления факториала (pascal):
function fact(n:byte):real;
begin
if n>33 then begin
writeln('Illegal parameter n=',n,' (must be <=33)');
exit;
end;
if n<2 then fact:=1
else fact:=n*fact(n-1);
end;