Вычислить значение выражения

@Vadimgs · Регистрация: 09.12.2014

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

Помогите написать программу используя функцию
1*1!+2*2!+... n*n!=

@Joy · 28.01.2015, 03:21

Pascal

var
  n:integer;
function calc(n:integer):real;
var
  i:integer;
  s,f:real;
begin
  f:=1;s:=0;
  for i:=1 to n do begin
    f:=f*i;
    s:=s+i*f;
  end;
  result:=s;
end;
begin
  write('n=');n:=readinteger;
  writeln('S=',calc(n));
end.

@volvo · 28.01.2015, 18:05

С функцией? Пожалуйста:

Pascal

var
  tm : double := 1;
 
function aggr(s, t : double) : double;
begin
  tm := tm * t;
  result := s + tm * t;
end;
 
begin
  write('n = ');
  writeln('s = ', Enumerable.Range(1, ReadInteger()).Select((i : integer) -> 1.0 * i).Aggregate(aggr));
end.

@Vadimgs 0 / 0 / 0 Регистрация: 09.12.2014 Сообщений: 12
		1
	Вычислить значение выражения 27.01.2015, 21:38. Показов 1017. Ответов 2 Метки нет (Все метки) Помогите написать программу используя функцию 11!+22!+... n*n!= 0

	28.01.2015, 18:05

Вычислить значение выражения

Решение