B2 в программе «: =» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. правила выполнения операций и порядок действий соответствуют правилам арифметики. определите значение переменной b после выполнения алгоритма: а : = 6 b : = 4 а : = 2*а + 3*b b : = a/2*b в ответе укажите одно целое число — значение переменной b.

Просто подставляем значения переменных в выражениях: {без присваивания показываю, просто решение выражений}а=2b=4a=2*a+3*b=2*2+3*4=4+12=16b=a/2 *b=16/2 * 4 = 8*4=32.  ответ: 32

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var a: =seqrandom(readinteger('n=',50).select(n-> double(n/;   a.foreach(x-> write(x: 0: 1,' ')); writeln;   writeln('сумма отрицательных: ',a.where(x-> x< 0).sum);   var p: =a.indexmin;   var q: =a.indexmax;   if p> q then swap(p,q);   writeln('произведение на интервале: ',           a[p+1: q].aggregate(1.0,(x,y)-> x*y));   writeln('сортировка: ');   a.sort; a.foreach(x-> write(x: 0: 1,' ')); writeln; end. пример n= 13 1.7 -0.8 -1.3 -1.4 5.0 -3.1 -0.7 -2.7 2.6 -4.9 4.0 -2.0 -2.0 сумма отрицательных: -18.9 произведение на интервале: -15.2334 сортировка: -4.9 -3.1 -2.7 -2.0 -2.0 -1.4 -1.3 -0.8 -0.7 1.7 2.6 4.0 5.0

Если на паскале и не совсем оптимально, то так:

var

  a, b, c, d,nmin,min: integer;

begin

  min: =maxint;

  readln(a);

  if a< min then begin

    nmin: =1;

    min: =a;

  end;

  readln(b);

  if b< min then begin

    nmin: =2;

    min: =b;

  end;

  readln(c);

  if c< min then begin

    nmin: =3;

    min: =c;

  end;

  readln(d);

  if d< min then begin

    nmin: =4;

    min: =d;

  end;

  writeln(nmin);

end.