Фрагмент вида p := 1; for i := 1 to int(n/2)...

Введение в информатику

Фрагмент вида

p := 1; for i := 1 to int(n/2) do p := p*x[i];

находит произведение:

(Отметьте один правильный вариант ответа.)

Варианты ответа

всех целых чисел ряда x[1], x[2], …, x[n]

всех чисел первой половины ряда x[1], x[2], …, x[n] (Верный ответ)

всех чисел ряда x[1], x[2], …, x[n]

Похожие вопросы

Фрагмент вида

s := 0; i := 1; while (i < 1000) do begin s := s + x[i]; i := i + 2 end

находит сумму чисел ряда:

Фрагмент вида

i := 1;j := 1;s := 0;while ((i <= n) and (x[i,j] > 0)) do  begin    j := 1;    while ((j <= m) and (x[i,j] > 0)) do      begin        s := s + x[i,j];        j := j + 1;      end;      i := i + 1;  end;

для заданного массива x[1:n, 1:m] чисел находит сумму s:

Фрагмент вида

b := abs(b); while ((а > 0) and (b > 0)) do if (а > b) then а := a mod b else b := b mod а; f := а + b;

определит значение переменной f = 1 при значениях:

Фрагмент вида

y := 0; x := 12345; for i := 1 to 4 do begin  y := y + x mod 10;  x: = int(x/10); end;

вычисляет значение переменной y, равное:

Для a[i] = i, i = 1 фрагмент программы вида

j := 2; i := 1; while (i > 0) do begin if (а[i] < а[j]) then j := i; i := i – 1; end; write(i + j);

выведет на экран значение:

Фрагмент вида

k := 1; s := x[1]; for i := 1 to n do if (s < х[i]) then begin s := х[i]; k := i end; write(k);

выводит значение переменной k, равное:

Фрагмент вида:

k := 1; while (k < 100) do k := k + k; write(k);

выведет значение k, равное:

Для a[i] = i, i = 1, 2, 3 фрагмент вида:

j := 1; i := 3; while (i > 1) do  begin  if (а[i] > а[j]) then   j := i;    i := i – 1; end;write(i,j);

выведет на экран значения i и j в указанной последовательности:

В результате выполнения фрагмента вида:

x := 2; y := 5; z := x + y; x := z div x; y := y – x;

получим:

В результате выполнения фрагмента вида

x := 44; y := 12; x := x div y; y := x*y + x/2;

получим: