Paste Search Dynamic
Recent pastes
str_arr
  1. var
  2.  data_arr:array[1..10] of integer;    
  3.  str_arr: string;                    
  4.  i, j: integer;                      
  5. begin
  6.  j:=1;                  
  7.  readln(str_arr);      
  8.  
  9.  for i:=1 to length(str_arr) do begin    
  10.   if (str_arr[i]='+') then data_arr[j]:= data_arr[j]+1;
  11.   if (str_arr[i]='.') then write(chr(data_arr[j]));
  12.  end;
  13. end.
Parsed in 0.004 seconds