Агафоник
6 год назад
Пожалуйста посчитайте, пожалуйста!Через repeat
ОТВЕТЫ
Снежана
Oct 24, 2020
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.
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.
450
Смежные вопросы:
