Условие ниже по паскале даю 40 баллов

Question

Условие ниже по паскале даю 40 баллов

---

Answer 1

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.

Comments

п.с.: если вдруг будет переполнение из-за факториала в знаменателе то поменяй тип ch,zn: integer; на ch,zn: real;