Предмет: Информатика,
автор: Никола666
Составить программу для вычисления суммы ряда 1/1!+1/2!+...+Аа
Ответы
Автор ответа:
0
program summa;
var summ:real;
n,i:integer;
function fact(a:integer):integer;
begin
if a=1 then
fact:=1
else
fact:=fact(a-1)*a;
end;
begin
readln(n);
summ:=0;
for i:=1 to n do summ:=summ+(1/fact(i));
writeln('Summa n pervih chlenov posledovatelnosti ravna ',summ);
end.
Писал на pascal ABC
var summ:real;
n,i:integer;
function fact(a:integer):integer;
begin
if a=1 then
fact:=1
else
fact:=fact(a-1)*a;
end;
begin
readln(n);
summ:=0;
for i:=1 to n do summ:=summ+(1/fact(i));
writeln('Summa n pervih chlenov posledovatelnosti ravna ',summ);
end.
Писал на pascal ABC
Похожие вопросы
Предмет: История,
автор: annalutova3
Предмет: Математика,
автор: kirillvasilev2019
Предмет: Русский язык,
автор: nastyaprokofeva04
Предмет: Физика,
автор: AncordRock
Предмет: История,
автор: Дирекшионер77