Question

вычислить через оператор White

Answer 1

var

  l,x,sum:real;

  i:integer;

begin

  write ('L = ');

  readln(l);

  write ('X = ');

  readln(x);

  i:=1;

  sum:=0;

  while i<=101 do

    begin

       sum:=sum+exp((x+i)*ln(l))/i;

       i:=i+2;

    end;

  writeln ('Summa: ',sum);

  readln;

end.