Internet










 

 

6 ( )

N. Nok.

 
PROGRAM PRG_6;

VAR I, N, M, K, NOD, NOK : INTEGER;

BEGIN

{AH N.

NOK}

REPEAT

WRITE('BBE N= ');

READLN (N);

WRITE('BBETE =');

READLN (M);

UNTIL (N>0) AND (M>0);

IF N>M THEN := M

ELSE := N;

FOR I := 1 TO DO

IF (N MOD I = 0) AND (M MOD I = 0) THEN

NOD := I;

NOK := NOD*(N DIV NOD)*(M DIV NOD);

WRITELN('HAMEH ');

RITELN(N, '', , 'NOK =', NOK)

END.

:

- ;

- N;

- 1 I , N;

- NOD;

- , NOK = NOD*(N DIV NOD)*(M DIV NOD), .

:

N, M - ;

I - ;

NOD - ;

NOK - ;

- N.



 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru