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

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:

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

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

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

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

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

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

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

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

Для 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 в указанной последовательности:

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

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

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

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

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

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

После выполнения фрагмента вида

s := 0; i := 1; while (i < 4) do begin i := i+1; s: = s + i end

значение переменной s равно:

Значение переменной р после выполнения фрагмента вида

p := 1; i := 4; while (i > 0) do begin р := р*i; i := i – 1 end;

равно: