Internet










 

{LTS}

 

2 ( )

  N . .

PROGRAM PRG_2;

VAR I, N, F, J, R, M : INTEGER;

BEGIN

{ N . }

REPEAT

WRlTE('BBE N =');

READ (N);

WRITE('BBETE =');
 
READLN ();
 
UNTIL (N>0) AND(M>0) AND(N
 
WRITELN('B ', N : 6, '', : 6);
 
R:=0;

FOR J := N DO BEGIN

F:=0;

FOR I := 2 TO J DIV 2 DO

IF J MOD I = 0 THEN F := 1;

IF F = 0 THEN

BEGIN R := 1;

WRITELN('', J : 6, '');

END;
 
END;
 
IF R = 0 THEN WRITELN('POCTlX ')
 
END.
 
:

- ;

- N;

- J ;

- I , J;

- F R .

:

N, - ;

I, J - ;

F, R - .


ekonom-it.ru

4  5  Pascal  " "  1 ( )  3 ( )  4 ( )  5 ( )  6 ( )  7 ( ) 


 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru