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.


ekonom-it.ru

1 ( )  2 ( )  3 ( )  4 ( )  5 ( )  7 ( )  ( )  " "  1 ( )  2 ( ) 


 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru