Internet










 

 

2 ( )

N . , .

 
PROGRAM PRG2_2;

VAR N, X, , I : INTEGER;

BEGIN

REPEAT

WRITE(' N = ');

READLN (N);

UNTIL N>0;

K:=0;

FOR I:= 1TON DO

BEGIN

WRITE('BBETE X =');

READLN (X);

IF X = 0 THEN

K:=K+1

END;

IF = THEN

WRITE(' ')

ELSE

WRITELN(' = ', );

END.

:

- ;

- N ;

- , , ;

- .

:

N - ;

I - ;

X - ;

- .



 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru