помогите пожалуйста с паскалям сейчас сежу на паре, пожалуйста помогите

вот и сЕди с паскалЯм, если по русски то писать не умеешь, то на паскале уж подавно

На "паре" нужно сЕдеть либо подготовленным либо с полным кошельком денег.
А если нет ни того ни другого, то и нечего сЕдеть там штаны протирать.

> Бойчук.

Молодец, возьми с полки пирожок.

var z,x,e:real;
i:integer;

function fact(a:integer):real;
var f:real;
i:integer;
begin
f:=1;
for i:=1 to a do f:=f*i;
fact:=f;
end;

begin
writeln ('Введите z:');
readln(z);
writeln ('Укажите точность e=');
readln(e);
x:=0;
i:=2;
while (exp(i*ln(z+2))/fact(i)>e) do
begin
inc(i);
x:=x+exp(i*ln(z+2))/fact(i);
end;
writeln('x=',x:7:3);
end.

---

Если надо проверить правильность ввода z, то уже сам допишешь.

Ну вот и потрать время на чтение учебника, если слушать не хочешь.
P.S. Назар, такие ряды считают рекуррентно, а не в лоб...