[Paladej]

Помогите исправить ошибки! Пожалуйста!

Код:

var x, s, f, a: real;
k: integer;
begin
write ('x=');
readln (x);
k:=1;
f:=6;
s:=x/f;
repeat
k:=k+1;
f:=f*(k+2);
a:=x/(sqrt(k)*f);
s:=s+a;
until (k>10) and (abs(x)/(sqrt(k)*f*(k+1)))<0.0001;
readln;
end.

lmikle: Читаем правила оформления кода.

[Pit-bull85]

Сообщение от Paladej

Помогите исправить ошибки! Пожалуйста!

Код:

f:=f*(k+2);
a:=x/(sqrt(k)*f);

Ну и где здесь вычисление факториала?

[Paladej]

Я не знаю. Я в этом еще новичок. Помоги мне пожалуйста!