Internet










 

 

3 ( )

N. .
 

PROGRAM PRG_3;

VAR I, N, F, J : INTEGER;

BEGIN

{ N. .}

REPEAT

WRITELN(' N = ');

READLN (N);

UNTIL N>0;

F :=0;

J:=N;

FOR I := 2 TO N DIV 2 DO

BEGIN

IF J MOD I = 0 THEN BEGIN

F := 1;

WHILE J MOD I = DO

BEGIN

WRITE('*', I);

J := J DIV I END;

END;

(F , , }

IP F = THEN WRITELN('*', N) ELSE

WRITELN

END.

:

- ;

- N;

- I , N/2;

- , , , N;

- F .

:

N - ; I, J - ; F - .


ekonom-it.ru

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


 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru