Составить задачу с факториалом

07.03.2013, 00:22. **Показов** 1272. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Помогите решить задачу:
Дано число N(>0). Найти произведение:
M!=1*2*...*N и вывести М на экран.

@ermolay · 07.03.2013, 00:47

с рекурсией

Pascal

function fact(n: byte): longint;
begin
  if n=1 then fact:=1
    else fact:=n*fact(n-1);
end;
 
var
  fac: longint;
  n: byte;
  
begin
  write('Введите число: n = ');
  readln(n);
  fac:=fact(n);
  writeln('n! = ', fac);
end.

без оной:

Pascal

var
  fac: longint;
  n,i: byte;
begin
  write('Введите число: n = ');
  readln(n);
  fac:=1;
  for i:=2 to n do
    fac:=fac*i;
  writeln('n! = ', fac);
end.

07.03.2013, 00:49

Спасибо большое!!!

ForeverEnot
		1
	Составить задачу с факториалом 07.03.2013, 00:22. Показов 1272. Ответов 2 Метки нет (Все метки) Помогите решить задачу: Дано число N(>0). Найти произведение: M!=12...*N и вывести М на экран.

ForeverEnot
	07.03.2013, 00:49	3
	Спасибо большое!!!

Составить задачу с факториалом

Решение