Internet










 

{LTS}

 

4 ( )

N. , . N , N.

 
PROGRAM PRG_4;

VAR I, N, SUM : INTEGER;

BEGIN

{ N. , . N , N }

REPEAT

WRITE(' N = ');

READLN (N);

UNTIL N>0;

SUM := 0;

FOR I := 1 TO N DIV 2 DO

IF N MOD I = 0 THEN

SUM := SUM+I;

IF SUM N THEN

WRITELN('', N, '')

ELSE

WRITELN('', N, 'HE ')

END.

:

- ;

- N;

- N, , ;

- SUM .

:

N - ;

I - ;

SUM - .


ekonom-it.ru

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


 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru