Begin
read(x);
s:=0; k:=1; y:=0.3;
While(abs(y)> eps) do
Begin
if k mod 2 = 0 then
Begin
y:=exp(k*ln(-1))*(k+1)*exp(k*ln(x))/exp(k*ln(3));
s:=s+y;
k:=k+1;
End
Else
Begin
y:=exp(k*ln(1))*(k+1)*exp(k*ln(x))/exp(k*ln(3));
s:=s+y;
k:=k+1;
end;
end;
write(s);
end.
.
ii ұқң 3 үi :
1) for... do (i қ)
2) while... do ( i қ)
3) repeat... until (i қ)
ө ғ iң ә үi әi iң iң ә үi әi iң ii өii i iiң i i қғ i. i ұ үi қ құ // . Қ өi әүi ңқ // қ.
i қ.
ө ғ қ ii ғ қ, ғ i қ ғ .
ұ ұқң үi:
for <>:=<ғ.ә> to <.ә> do
<>
for I:=1 to n {downto} m2 do
<>
ұғ <> үi i i ii iң қ i ә: 1 1-i ғ қ . Ққ әi әi ұқ to downto (down ө, to i; ғ downto ) ғ қ қ. қ 1- ң , downto қ.
ө i үi iiiң ii ii қ үi ғ i. ұ құғ ii ғ қ iң ii қ.
Ii iң өi қ ii i қ үi.
қ.
ұ қ қң ii ғ ғ . ұ ұқ i i қ ә i.
үi.
While <> do
<>
B қ ө ұ үi.
While B Do P
ұ ұқ ii, ( қ), i . ұ қ қғ қ. қ қ i ғ өiii. әi қ, қ өiң әi қ ғ ғ қң i ( i) қ i. i.
|
|
i қ .
ұ ұқ ө ғ қң ii ғ ғ, . ң үi:
Repeat
<қ i>
Until <қ ө>
ң : қ қ өiң әi ққ ғ, i қ i. i ұ қ i i, ң ғ өi әi- өii, ұ қ i i 1- . , ұ қ i , ң ii.