Internet










 

 

2 ( )

. .

, , .

PROGRAM PRG3_2;

VAR STR : STRING;

L, I: INTEGER;

BEGIN

WRITELN('BBETE ');

READLN(STR);

L := LENGTH(STR);

WRITELN(' ');

FOR I := 1 TO L DO

IF (STR[I] = '!') THEN WRITE('.')

ELSE

WRITE(STR[I]);

WRITELN

END.

:

- ;

- FOR I := 1 L DO '!' '.'

- WRITELN.

:

I - ;

L - ;

STR - .



 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru