Internet










 

 

5 ( )

N. NOD.

 
PROGRAM PRG_5;

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

BEGIN

{ N.

NOD}

REPEAT

WRITE('BBETE 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;

WRITE(' ', N, '', , 'NOD =', NOD)

END.

:

- ;

- N;

- 1 I , N;

- NOD;

- .

:

N, - ;

I - ;

NOD - ;

- N.


ekonom-it.ru

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


 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru