Приведенный ниже фрагмент программы на Паскале реализует алгоритм заполнения Арифметического квадрата.

… for i:=1 to n do for j:=1 to n do begin a[i,j]:=1; a[i,j]:=1; end; for i:=2 to n do for j:=2 to n do a[i,j]:=a[i-1,j]+a[i,j-1]; …

Что в нем стоит изменить?

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

• # Треугольник на плоскости задан координатами своих вершин: (2,3), (4,7), (7,2). Охарактеризуйте его:
• # Количество комбинаторных групп, сформированных троичным перебором будет равно:
• # Что делает приведенная ниже программа на Паскале: var a: string; b, i, j, st, n, s, x, k: integer; begin writeln ('введите число'); readln (a); n:=length(a); s:=0; for i:=1 to n do begin val (copy(a,n-i+1,1),x,k); st:=1; for j:=1 to n do st:=st*x; s:=s+st; end; val (a, x, k); if s=x then writeln ('+') else writeln ('-'); end.
• # Какие значения примут элементы первой строки двумерного массива, размерностью 5x5, в результате выполнения программы на Паскале, фрагмент которй приведен ниже (введите числа через пробел) … for k:=1 to (n div 2 +1) do for i:=k to n-k+1 do for j:=k to n-k+1 do a[i,j]:= k; …
• # Какая команда должна стоять вместо вопросительных знаков в ветвлении, чтобы двумерный массив в результате выполнения программы на Паскале (фрагмент ниже)… … x:=1; for i:=1 to n do for j:=1 to n do begin if i mod 2=o then a[i,j]:=x else ??? x:=x+1; end; … был заполнен так: \begin{matrix} 1&2&3&4\\ 8&7&6&5\\ 9&10&11&12\\ 16&15&14&13 \end{matrix}