Тема: Свободный практикум

Pascal..)

Код:

Var a:array[1..100] of String;
    i,j:Integer;
    s:String;
Begin
 j:=1;
 s:='RMXP/VX for game developers. Many opportunities in the new version.';
  For i:=1 to length(s) do
   begin
    If s[i]<>' ' then
                  begin
                   a[j]:=a[j]+s[i];
                  end;
    If i<>length(s) then
                     begin
                      If (s[i]<>' ') and (s[i+1]=' ') then
                                                       begin
                                                        j:=j+1;
                                                       end;
                     end;
   end;
  
  For i:=1 to j do
   begin
    If a[i]='RMXP/VX' then 
                        begin
                         a[i]:='RM2k3';
                        end;    
   end;
End.