Фрагменты программ на Паскале реализуют алгоритмы формирования таких комбинаторных групп, как:

... 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]);

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

• # Вычислите длину отрезка, заданного координатами концов (12,13); (6,21):
• # Назначение программы на Паскале, фрагмент которой приведен ниже: … readln (x1, y1); readln (x2, y2); readln (x3, y3); a:= sqrt (sqr(x1-x2)+sqr(y1-y2)); b:= sqrt (sqr(x2-x3)+sqr(y2-y3)); c:= sqrt (sqr(x3-x1)+sqr(y3-y1)); p:=(a+b+c) / 2; writeln (sqrt (p*(p-a)*(p-b)*(p-c))); …
• # Приведенная программа на Паскале реализует алгоритм поразрядного умножения числа на число от 0 до 9, вводимых с клавиатуры приведена с ошибкой. Найдите ее. const m=…; var a, rez: array [1..m] of byte; i, n, x, k: integer; stroka: string; begin readln (stroka); readln (x); n:= length (stroka); for i:=1 to n do val (copy(stroka, i, 1), a[i], k); for i:=1 to n do rez[i]:= a[i] * x; for i:=n downto 2 do begin rez[i-1]:= rez[i-1]+rez[i] mod 10; rez[i]:= rez[i] div 10; end for i:=1 to n do write (rez[i]); end.
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдено: … 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 …
• # Можно ли "отмечать" начало и конец какого-либо события (пример задачи: "В картинной галерее работают сторожа. Для каждого сторожа известно время прихода на работу и время ухода. Определить, всегда ли галерея охраняется") не флажками "1" и "-1", а любыми символами (например, "*" и "/")?