Ниже приведен фрагмент программы

… for i:=(n div 2 + 1) to n do for j:=??? x[i,j]:=1; …

выполнение которой приведет к такому заполнению квадратного массива:

Укажите, что должно стоять вместо вопросительных знаков в заголовке внутреннего цикла:

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

• # Количество комбинаторных групп, сформированных двоичным перебором будет равно:
• # Определите результат работы фрагмента программы на Паскале: … for i:=1 to 10 do a[i]:=i-1; z:=0; d:=0; h=1; for i:=1 to 10 do begin if i mod 2 <> 0 then z:=z+a[i]; if a[i] mod 3 = 0 then d:=d*a[i]; if a[i] <= 0 then h:=h+1; end; write (z, ' ', d, ' ', h); …
• # Что делает приведенная ниже программа на Паскале: 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.
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдено: … 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 …
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, на экран выведутся: … readln (n); for i:=1 to n do a[i]:=i; for i:=2 to n div 2 do if flag[i]=0 then for j:=i+1 to n do if (a[j] mod a[i]=0) then flag[j]:=1; for i:=2 to n do if flag[i]=0 then writeln (a[i]) …