Ответы
Ответ дал:
0
program Project;
var
n,x:byte;
ch,zn: integer;
sm: real;
begin
ch:=1;
zn:=1;
sm:=0;
Read(n);
Read(x);
for i:=0 to n do
begin
sm:=sm+ch/zn;
ch:=ch*x;
zn:=zn*(i+1);
end;
writeln(sm:0:6)
end.
var
n,x:byte;
ch,zn: integer;
sm: real;
begin
ch:=1;
zn:=1;
sm:=0;
Read(n);
Read(x);
for i:=0 to n do
begin
sm:=sm+ch/zn;
ch:=ch*x;
zn:=zn*(i+1);
end;
writeln(sm:0:6)
end.
Ответ дал:
0
п.с.: если вдруг будет переполнение из-за факториала в знаменателе то поменяй тип ch,zn: integer; на ch,zn: real;
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад