факториал

@astrozombie · Регистрация: 16.02.2009

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

составить програмку надо,чтобы считала

помогите составить пожалуйста!

@red_88 · 04.03.2009, 14:59

var
n,l,k:integer;
begin
readln(k);
if k mod 2=0 then l:=10
else l:=k;
n:=1;
k:=k*l;
for l=1 to k do
n:=n*l;
writeln(n);
end.
красоту сам наведёшь

@Arriba · 04.03.2009, 16:18

Код

var 
    n,L,k:integer;
begin
       if k mod 2=0 then 
          L:=10 
       else 
          L:=1;

@red_88 · 04.03.2009, 16:50

точняк, проглядел

@astrozombie · 04.03.2009, 18:20 **[ТС]**

Спасибо огромное!!Что б я без Вас делал?!

@Arriba · 04.03.2009, 22:34

red_88, слушай извини за тупой вопрос возможно, но всё никак не врублюсь каким образом факториал (10n)! считается...
Ведь вроде (2n)!=2*4*6*8*10.... А как с десяткой то?

@astrozombie 1 / 1 / 0 Регистрация: 16.02.2009 Сообщений: 11
		1
	факториал 04.03.2009, 14:39. Показов 908. Ответов 5 Метки нет (Все метки) составить програмку надо,чтобы считала помогите составить пожалуйста! 0

@red_88 6 / 6 / 0 Регистрация: 10.02.2009 Сообщений: 140
	04.03.2009, 14:59	2
	var n,l,k:integer; begin readln(k); if k mod 2=0 then l:=10 else l:=k; n:=1; k:=kl; for l=1 to k do n:=nl; writeln(n); end. красоту сам наведёшь 1

@Arriba 257 / 173 / 27 Регистрация: 17.10.2008 Сообщений: 770
	04.03.2009, 16:18	3
	Код var n,L,k:integer; begin if k mod 2=0 then L:=10 else L:=1; 1

@red_88 6 / 6 / 0 Регистрация: 10.02.2009 Сообщений: 140
	04.03.2009, 16:50	4
	точняк, проглядел 1

@astrozombie 1 / 1 / 0 Регистрация: 16.02.2009 Сообщений: 11
	04.03.2009, 18:20 [ТС]	5
	Спасибо огромное!!Что б я без Вас делал?! 0

@Arriba 257 / 173 / 27 Регистрация: 17.10.2008 Сообщений: 770
	04.03.2009, 22:34	6
	red_88, слушай извини за тупой вопрос возможно, но всё никак не врублюсь каким образом факториал (10n)! считается... Ведь вроде (2n)!=246810.... А как с десяткой то? 0