Программирование циклов с условием, Вопрос Опции

[Stas86]

Добрый день. Вот такая задачка.

Program z1;
Uses crt;
Var
s,t,n,E:real;
begin
writeln ('Введите точность');
Readln (E);
s:=1;
t:=1;
n:=1;
while abs (t)>e do
begin
n:=n+1;
t:=t*x/n;
s:=s+t;
end;
write ('S', S:0:4);
Readkey;
End. 

Преподша сказала, что нужно добавить еще три строчки факториала. Вот собственно в этом и вопрос.
Условие задачки на изображении.[code]

[Stas86]

Описать-то ты x, видимо описал. Но вот дать ему нужное значение - это, конечно, задача трудновыполнимая.. Да?

Вот и считаешь для x=0 ..

Добавлено через 1 мин.

Вставь ввод значения x.

Всмысле описать его в разделе переменных? Описал, считает так же.

Сообщение отредактировано: Stas86 - 9.12.2010 17:24