Помогите, пожалуйста!Через repeat

Помогите, пожалуйста! Через repeat
Гость
Ответ(ы) на вопрос:
Гость
Var X,N,m,r:integer; S,F,St:real; Begin Write('X = ');Read(X); N:=1; S:=0; Repeat    r:=1;    St:=1;    Repeat    St:=St*X;    r:=r+1;    Until r>N;        m:=1;    F:=1;    Repeat    F:=F*m;    m:=m+1;    Until m>n; S:=S+St/F; N:=N+2; Until N>13; WriteLn(S); End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы