Дано целое положительное значение N. Требуется вычислить сумму
Приложения:

Омскаяптица:
Язык то какой?
Ответы
Ответ дал:
2
var
sum:real;
n,f,i:integer;
begin
readln(n);
i:=1;
f:=1;
sum:=1;
while i<n+1 do
begin
f:=f*i;
sum:=sum + (1/f);
i:=i+1;
end;
Writeln(sum:0:2);
end.
Приложения:

Похожие вопросы
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад