В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная S будет содержать:
…n:=8; k:=n div 2; s:=1;for i:=1 to n do begin x[i]:=i; j:=i div 2 + 1; y[j]:=j*2; end;for i:=1 to k do s:=s*x[y[i]]; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная S будет содержать:
…n:=8; k:=n div 2; s:=1;for i:=1 to n do begin x[i]:=i; j:=i div 2 + 1; y[j]:=j*2; end;for i:=1 to k do s:=s*x[y[i]]; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная К будет содержать значение…
. . . 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;…
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная К будет содержать значение…
. . . n:=5; k:=0;for i:=1 to n do a[i]:=n-i+1;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;…
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная будет содержать:
…n:=10; k:=n div 2;for i:=1 to n do begin x[i]:=i; j:=i div 2 + 1; y[j]:=j*2; end;for i:=1 to k do s:=s+x[y[i]]; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная будет содержать:
…n:=8; k:=n div 2;for i:=1 to n do begin x[i]:=i; j:=i div 2 + 1; y[j]:=j*2; end;for i:=1 to k do s:=s+x[y[i]]; …
…j:=0; k:=0; n:=9;for i:=1 to n do x[i]:=i;for i:=1 to n do if x[i] mod 2<>0 then begin j:=j+1; y[j]:=i; end;…
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, массив Flag будет содержать:
…for i:=1 to 10 do begin a[i]:=i; flag[i]:=0;endfor i:=2 to 10 div 2 do if flag[i]=0 then for j:=i+1 to 10 do if (a[j] mod a[i]=0) then flag[j]:=1;…
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной M будет находиться:
…j:=0; m:=1; n:=10;for i:=1 to n do x[i]:=i;for i:=1 to n do begin if x[i] mod 3=0 then begin j:=j+1; y[j]:=i; end; end;for i:=1 to j do m:=m*x[y[i]]; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив Х вводятся числа: 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;…
…n:=5;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;…