Дано натуральное n, вычислить 1/0!+1/1!+...+1/n!

@temon · Регистрация: 27.10.2008

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

6. Дано натуральное n, вычислить 1/0!+1/1!+...+1/n!. Так, чтобы не вычислять заново каждый раз факториал).

@GalaX · 01.12.2008, 00:09

6:

Код

n := 5;

f := 1;
rslt := 1;
for i:=1 to n do begin
	f := f * i;
	rslt := rslt + (1 / f);
end;

@qwer · 01.12.2008, 00:15

Код

{6}var a, b, i, j, n : longint;
c : real;
begin
readln(n);
a := 1;
for i := 1 to n do
begin
a := a * i;
c := c + (1 / a);
end;
writeln(c : 1 : 0);
end.

Ща ещё остальные допишу...

@temon 0 / 0 / 0 Регистрация: 27.10.2008 Сообщений: 21
		1
	Дано натуральное n, вычислить 1/0!+1/1!+...+1/n! 29.11.2008, 13:18. Показов 2397. Ответов 2 Метки нет (Все метки) 6. Дано натуральное n, вычислить 1/0!+1/1!+...+1/n!. Так, чтобы не вычислять заново каждый раз факториал). 0

@GalaX 701 / 573 / 59 Регистрация: 18.11.2008 Сообщений: 2,147
	01.12.2008, 00:09	2
	6: Код n := 5; f := 1; rslt := 1; for i:=1 to n do begin f := f * i; rslt := rslt + (1 / f); end; 0

@qwer 4 / 4 / 2 Регистрация: 29.10.2008 Сообщений: 22
	01.12.2008, 00:15	3
	Код {6}var a, b, i, j, n : longint; c : real; begin readln(n); a := 1; for i := 1 to n do begin a := a * i; c := c + (1 / a); end; writeln(c : 1 : 0); end. Ща ещё остальные допишу... 0

Опции темы