Фрагмент программы на Паскале проверяет - совершенное ли число n, введенное с клавиатуры. Выберите все варианты, которые помогут исправить в нем ошибку:

… for i:=1 to n do if n mod i=0 then k:=k+i; if k=n then writeln ('число совершенное') else writeln ('число несовершенное'); …

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

• # В результате выполнения какой программы на Паскале (фрагменты приведены ниже) из исходного массива произойдет такая выборка элементов: 11 12 13 22 23 33
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной К будет находиться… . . . n:=5; k:=0; for i:=1 to n do a[i]:=i; for j:=n downto 2 do for i:=1 to j-1 do if a[i]<a[i+1] then begin x:=a[i]; a[i]:= a[i+1]; a[i+1]:=x; k:=k+1; end; …
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив Х вводятся числа: 1, 8, 12, 3, 5, 4. Сумма элементов массива У будет равна: … j:=1; k:=0; n:=6; for i:=1 to n do if x[i] mod 2=0 then begin y[j]:=i; j:=j+1; end; …
• # В каком направлении идет заполнение двумерного массива в 2-ом вложенном цикле по i, в результате выполнения программы на Паскале, фрагмент которой приведен ниже: … x:=1; for k:=1 to n div 2 do begin for i:=k to n-k do begin a[k,i]:=x; x:=x+1; end; for i:=k to n-k do begin a[i,n-k+1]:=x; x:=x+1; end; for i:=k to n-k do begin a[n-k+1,n-i+1]:=x; x:=x+1; end; for i:=k to n-k do begin a[n-i+1,k]:=x; x:=x+1; end; end; …
• # Установите, как будет заполнен двумерный массив в результате выполнения программы на Паскале, фрагмент которой приведен ниже: … x:=1; for i:=1 to n do for j:=1 to n do begin if i mod 2=0 then a[i,n-j+1]:=x else a[i,j]:=x; x:=x+1; end; …