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

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

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

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