Составить алгоритм и программу вычисления суммы таких членов последовательности аi=х/(1*2*3*...*i), i=1,2,..., значения которых больше 0,001. Вводимое значение 0<x<1. ................Я так понимаю, что последовательность должна продолжаться так: аi=х/1+х/1*2+х/1*2*3+х/1*2*3*4 и т.д

Я сегодня добрый, но в следующий раз называй тему так, чтобы с главной страницы было видно, о чем речь, а то "Описание темы" оттуда не видать, и получается, что тема названа не пойми как...

А там точно икс, а не икс в степени и? А то он выходит лишний - его спокойно можно за скобку вынести.

Просто 'х', а 'a'-итая (i)

Хорошо, сумма до n или до бесконечности?

По вопросу. Сначала предъявите то, что уже попытались сделать.

Если до бесконечности, то решается в одну формулу, без циклов и.т.д.
до "значения которых больше 0,001" TarasBer, читайте внимательно условие!"

Все, программка получилась:

program F1;
uses crt;
var x,s,z,t: real;
    k,i,n: integer;
begin
clrscr;
  readln(x);
  i:=1;
  z:=1;
  s:=0;
  n:=0;
  while x/z>0.0001 do
    begin
     inc(n);
     t:=s;
     s:=s+x/z;
     i:=i+1;
     z:=1;
      for k:=1 to i do
      z:=z*k;
    end;
  writeln(t:0:4);
  writeln(n);
  readln;
end.