Помогите дорешать задачу на While

[Andrux]

program anz116;
uses crt;
var n,x,b,i:integer;
s:real;
begin
     clrscr;
     writeln('Vvedite chemy raven x');
     readln(x);
     writeln('Vvedite chemy ravno n');
     readln(n);
     s:=0;
     while i<n do
           begin
                for i:=1 to n do
                    b:=b*i;

                    s:=x/b;
           end;
           writeln('Otvet= ' , s:6);
           readln;
end.

Заранее благодарен!

[Sazary]

program anz116;
uses crt;
var n,x,b,i,xxx:integer;
s:real;
begin
     clrscr;
     writeln('Vvedite chemy raven x');
     readln(x);
     writeln('Vvedite chemy ravno n');
     readln(n);
     s:=0;
     b:=1;
     xxx:=1;
      for i:=1 to n do
       begin
       b:=b*i;
       xxx:=xxx*x;
       s:=s+xxx/b;
       end;
writeln('Otvet= ' , s:6:2);
readln;
end.

[Andrux]

пасиб ща попробую

[Andrux]

Спасибо вродь работает
Sazary

[Andrux]

но, надо бы через вайл, сможешь пожалуйста...

[alex_fcsm]

program anz116;
uses crt;
var n,b,i,j:integer;
a,s,x:real;
begin
     clrscr;
     writeln('Vvedite chemy raven x');
     readln(x);
     writeln('Vvedite chemy ravno n');
     readln(n);
     s:=0;
     b:=1;a:=1;i:=0;
     while i<n do
           begin
                inc(i);
                for j:=1 to i do
                    b:=b*j;
                for j:=1 to i do
                    a:=a*x;
                    s:=s+a/b;
           end;
           writeln('Otvet= ' , s:6:3);
end.

[Andrux]

alex_fcsm
Огромное спасибо.

[Andrux]

alex_fcsm
ты нечаяно же да написал 2 раза
for j:=1 to i do

[alex_fcsm]

b - считаем факториал
a - считаем степень х

[Andrux]

ах да. ... а есть 1 идея как объединить эти 2 цикла в один? подскажи плз.