Нахождение факториала

@mikelll · Регистрация: 27.12.2010

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

нужно найти факториал числа
например
9 !! = 1*3*5*7*9 = 945;

факториал может быть, обычным(!), двойным(!!), тройным(!!!), четвертным(!!!!)...двадцатичным(!!!!!!!!!!!!!!!!!!!!)

@VIG · 04.03.2011, 18:49

Pascal

Program my1;
var i,n,fact:integer;
begin
readln(n);
fact:=1;
for i:=1 to n do
if i mod 2=1 then
fact:=fact*i;
writeln(fact);
end.

Ничего сложного в нахождении факториала нет.

@marshal · 04.03.2011, 18:55

Сообщение от VIG

if i mod 2=1 then

зачем оно? это надо убрать, иначе считает неверно

@Dekio · 04.03.2011, 19:12

Pascal

program Dekio;
var
fact, tmp: longint;
nfc, cnt: integer;
begin
fact:=1; tmp:=1;
writeln('Введите число');
readln(nfc);
repeat
writeln('Введите степень факториала');
readln(cnt);
until cnt<>0;
while tmp<=nfc do
begin
fact:=fact*tmp;
inc(tmp,cnt);
end;
writeln('Факториал ',fact);
end.

@mikelll 16 / 16 / 6 Регистрация: 27.12.2010 Сообщений: 163
		1
	Нахождение факториала 04.03.2011, 18:24. Показов 3275. Ответов 3 Метки нет (Все метки) нужно найти факториал числа например 9 !! = 13579 = 945; факториал может быть, обычным(!), двойным(!!), тройным(!!!), четвертным(!!!!)...двадцатичным(!!!!!!!!!!!!!!!!!!!!) 0

@marshal Robin Bad на форуме 237 / 237 / 194 Регистрация: 14.12.2010 Сообщений: 513
	04.03.2011, 18:55	3
	Сообщение от VIG if i mod 2=1 then зачем оно? это надо убрать, иначе считает неверно 0

	04.03.2011, 19:12