3
. :
- , , .
- , , , , , .
- , .
- ( ), .
- .
. 1 2 .
) 1.4 . , 1, 2. , .
: ,
S=1-1/2+1/3-1/4+1/5-1/6-...+1/999-1/n.
. , , -. :
, n i, i > n .
( ) (, , ):
. , . , :
:
readln(n); S=0; Zn=1; I=1; repeat S=S+Zn/I; Zn=-Zn; I=I+1 until I>n; writeln(S) | readln(n); S=0; Zn=1; I=1; while not(I>n) do begin S=S+Zn/I; Zn=-Zn; I=I+1; end; writeln(S) |
( n), , , . . .
|
|
, - . , , ( ). 1 1.
, () ( ). ( ).
x1,x2,...x10 , , x[1],x[2],...x[10] .
.
:VAR <>: ARRAY[<_>..<_>] of <>;
<> - -;
ARRAY, of - ;
<_> <_> - (), () ;
<> - .
, (), . , , .
,
VAR Matrix: ARRAY [1.. 10] OF REAL;Koef: ARRAY [1.. 3] OF INTEGER;
.
, 100 .
n (n<=100).
( )
i:=1; WHILE i<=n DO BEGIN READLN([i]); i:=i+1 END; i:=n; WHILE i>=1 DO BEGIN WRITELN(X[i]); i:=i-1 END; | i:=1; REPEAT READLN(X[i]); i:=i+1 UNTIL i>n; i:=n; REPEAT WRITELN(X[i]); i:=i-1 UNTIL i<1; |
:
For i:=1 to n do readln(X[i]);
For i:=n downto 1 do writeln(X[i]);
For i:=1 to n do writeln(X[n-i+1]);
/* NxN.