!
!

 


>> 11 .

7.

 

,

7.2. Pascal

begin, end . (. 2.4). Pascal . ( begin ... end).

   Pascal

. . , , .

, n (n >= 2) [2; n - 1].

, n , , .

flag:

  • flag = true, n ;
  • flag = false, n ( n , flag := false).

, [2; n - 1]. n = b, , b √n ( √n, , n). , n , n n/.

.

, n >= 2 , . .

2.

() b.

d b. , . , d, , . , d. d b.

<<<

 

 

@Mail.ru
<">