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

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

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

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

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 := int(–5.19) + abs(–3)*(7 mod 3) – max(12 mod 5, 32 div 3)*sqrt(0.01)

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

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

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

s := 0; i : = 1; while(i < 5) do  begin    i := i + 1; s := s + i   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:

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

Последовательное выполнение двух команд вида

a := abs(–5) + int(pi)*(11 mod 1);  a := max(a, а div 3)-int(a/2)-int(sqrt(a+4))

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

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

a :=int(2.6)*(6 div 4) + (1 mod 3)*int(4/3) – 1/2.5/sqrt(0.16)

значение переменной а будет равно:

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

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

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