Дана последовательность чисел : 12323. к ней применен следующий цикл обработки: 1. все цифры "1" заменить на "33" 2. все цифры "2" заменить на "1" 3. все цифры "3" заменить на "2"

Вот решение на паскале. var b,k,i,l: integer; a: array[1..100] of string; begin a[1]: ='1'; a[2]: ='2'; a[3]: ='3'; a[4]: ='2'; a[5]: ='3'; for i: =1 to 5 do     begin     if a[i]='1' then a[i]: ='33';     if a[i]='2' then a[i]: ='1';     if a[i]='3' then a[i]: ='2';     end;     for i: =1 to 5 do         write(a[i]); end.ответ:   331212

// то чувство, когда 2 часа работал над оптимизацией, а в итоге работает быстрее вариант, который писал 5 минут.//pascalabc.net 3.2 сборка 1318var  i,j,k,m,n,count: integer;   s,s1: string; begin  readln(n); for i: =1 to n do  s+=inttostr(i); for i: =1 to length(s) doif (s[i]='2') or (s[i]='0') or (s[i]='1') or (s[i]='3') then s1+=s[i]; s: =s1; for i: =1 to length(s) do  if   s[i]='2' then    for j: =i+1 to length(s) do      if s[j]='0' then        for k: =j+1 to length(s) do          if s[k]='1' then            for m: =k+1 to length(s) do              if   s[m]='3' then inc(count); writeln(count); end.пример ввода: 500пример вывода: 23760240

// pascalabc.net 3.2, сборка 1325 от 19.10.2016 begin   var a: =matrixrandom(10,10,-10,10);   var sp: =0; var sn: =0;   for var i: =0 to 9 do begin       for var j: =0 to 9 do begin           write(a[i,j]: 4);           if a[i,j]> 0 then inc(sp)           else               if a[i,j]< 0 then inc(sn)           end;       writeln       end;   writeln('положительных ',sp,', отрицательных ',sn) end. пример   -2    4    5  10    3    7  -8  -1  -5  -9   -2    6  -3    8  10    9  -8    3    9    9     2  10    3    5  10    1  -9    4  -7    3     9    1  -3  -5    7    5    2    0  -7    3     2    1  10  -8  -8    6  -8  -3  -5    0   -2 -10  -7    9  -9  -1  -9  10 -10  -8     6  -1  -4    3  -7    7  -1  -8 -10  -5   -3    2    0  -5  -4 -10 -10    0    3  -7   -1    5  -2    4  -6    9  -3  -1  -7  -2     3    2    0 -10    8  -7  -5  -3  10  -5 положительных 44, отрицательных 51