.


:




:

































 

 

 

 


3

. :

  1. , , .
  2. , , , , , .
  3. , .
  4. ( ), .
  5. .

. 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.



<== | ==>
| .
:


: 2018-11-12; !; : 206 |


:

:

, .
==> ...

1699 - | 1574 -


© 2015-2024 lektsii.org - -

: 0.013 .