Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы