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

… for i:=1 to n do for j:=1 to n do if i<>j then write (A[i], A[j]); …

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

• # Каков будет результат выполнения программы, если с клавиатуры вводится слово "Ротор": var a:string; k,n,i: integer; begin readln (a); k:=0; n:=length(a); for i:=1 to n do if copy(a,i,1) <> copy(a,n-i+1,1) then k:=1; writeln (k); end.
• # Площадь выпуклого четырехугольника равна…
• # Фрагменты программ на Паскале реализуют алгоритмы формирования таких комбинаторных групп, как: ... for i:=1 to n-1 do for j:=i+1 to n do writeln (A[i], A[j]); ... for i:=1 to n do for j:=i to n do writeln (A[i], A[j]); … for i:=1 to n do for j:=1 to n do if i<>j then writeln (A[i], A[j]); … for i:=1 to n do for j:=1 to n do writeln (A[i], A[j]);
• # Ниже приведен фрагмент программы, реализующий алгоритм формирования комбинаторных групп двоичным перебором ( - количество элементов в исходном множестве): … st:=1; for i:=1 to n do st:=st*2; for i:= 1 to (st-1) do begin for j:= 1 to n do if y[j]= 0 then x:= j; for z:= x to n do y[z]:=0; y[x]:=1; … Назначение данного фрагмента:
• # Приведенный ниже фрагмент программы на Паскале реализует алгоритм заполнения Арифметического квадрата. … for i:=1 to n do begin a[i,1]:=i; a[1,i]:=i; end; for i:=2 to n do for j:=2 to n do a[i,j]:=a[i-1,j]+a[i,j-1]; … Найдите в нем ошибку: