Internet










 

 

1 ( )

N. ,

 
PROGRAM PRG_1;

VAR I, N, F : INTEGER;

BEGIN

{ N .

, .}

REPEAT

WRITE('BBE N = ');
 
READLN (N);
 
UNTIL N>0;
 
F:=0;
 
FOR I := 2 TO N DIV 2 DO
 
IF N MOD I = 0 THEN
 
F := 1;

IF F = 0 THEN

WRITELN(' ', N : 6, ' ')

ELSE

WRITELN(' ', N : 6, ' HE ')
 
END.

:

- ;

- ;

- 2 N/2 , N;

- F .

:

N - ;

I - ;

F - .

ekonom-it.ru

3  4  5  Pascal  " "  2 ( )  3 ( )  4 ( )  5 ( )  6 ( ) 


 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru