profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

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

  1. Ответ
    Ответ дан iwrowo
    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.
    1. Ответ
      Ответ дан iwrowo
      п.с.: если вдруг будет переполнение из-за факториала в знаменателе то поменяй тип ch,zn: integer; на ch,zn: real;
Самые новые вопросы