Internet










 

 

7 ( )

N. , . N :
5 - 25
6 - 36
25 - 625.
 
PROGRAM PRG_7;

VAR N, R, M : INTEGER;

BEGIN

{ N. , .

N :

 
5 - 25
6 - 36
25 - 625 }

REPEAT

WRITE('BBETE N= ');

READLN (N);

UNTIL N>0;

:= N;

R := 1;

WHILE M>0 DO

BEGIN

M := M DIV 10;

R := R*10;

END;

IF (N*N MOD R) = N THEN

WRITELN(' ', N, ' ') ELSE

WRITELN(' ', N, ' HE ')

END.

:

- ;

- N;

- , , R;

- N*N N*N MOD R;

- .

:

N - ;

, R - .


ekonom-it.ru

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


 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru