В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет вывод ряда чисел. Укажите этот ряд чисел (через пробел):

. . . n:=5; for i:=1 to n do begin x[i]:=n-i+1; y[i]:=i; end; for j:=n downto 2 do for i:=1 to j-1 do if x[i]>x[i+1] then begin g:=x[i]; x[i]:= x[i+1]; x[i+1]:=g; g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g; end; for i:=1 to n do write (x[i]+y[i]); . . .

Правильный ответ:

• # Вычислите периметр треугольника, заданного координатами его вершин (1,1); (1,5); (4,5)
• # Три населенных пункта и соединены дорогами, по которым курсируют такие автобусные маршруты . К какому типу комбинаторных групп принадлежат эти маршруты:
• # Количество комбинаторных групп, сформированных двоичным перебором будет равно:
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдено: … s:=0; for i:=1 to n do for j:=1 to n do if (i<=n-j+1) then s:=s+x[i,j]; …
• # В результате работы программы, фрагмент которой приведен ниже, идет проверка правильности расстановок скобок в арифметическом выражении. Что будет результатом работы программы, если в данном выражении (например: избыточное количество скобок: … n:=length (stroka); s:=0; for i:=1 to n do begin a[i]:=copy(stroka, i, 1); flag[i]:=0; end; for i:=1 to n do begin if a[i]="(" then flag [i]:=1; if a[i]=")" then flag [i]:=-1; end; for i:=1 to n do begin s:=s+flag [i]; if s<0 then x:=1; end; if (s=0) and (x=0) then writeln ('верно') else writeln ('неверно'); …