Укажите условия, истинные при х=-3, y=2, z=5 а)y=z+x б)z4 г)x-y=-z д)z mod 2=1 e)z div y=2

А) истина б) ложь г) истина д) ложь е) истина mod  - деление в результате которого выводится только остаток div  - деление в результате которого выводится только целая часть

Sub ()dim a(1 to 4, 1 to 4) as integerdim b(1 to 3, 1 to 3) as integerrandomizefor i = 1 to 4    for j = 1 to 4        a(i, j) = int((10 * rnd) + 1)        cells(i, j) = a(i, j)    next jnext ifor i = 1 to 3    for j = 1 to 3        b(i, j) = int((10 * rnd) + 1)        cells(i + 5, j) = b(i, j)    next jnext icall obrabotkaa(a)call obrabotkab(b)call result(a, b)end subsub obrabotkaa(a)collumnmax = 0collumnmin = 0summmax = 0summmin = 999for j = 1 to 4summ = 0    for i = 1 to 4        summ = summ + a(i, j)    next i    if summ > summmax then        summmax = summ        collumnmax = j    end if    if summ < summmin then        summmin = summ        collumnmin = j    end ifnext jfor i = 1 to 4    temp = a(i, collumnmax)    a(i, collumnmax) = a(i, collumnmin)    a(i, collumnmin) = tempnext iend subsub obrabotkab(b)collumnmax = 0collumnmin = 0summmax = 0summmin = 999for j = 1 to 3summ = 0    for i = 1 to 3        summ = summ + b(i, j)    next i    if summ > summmax then        summmax = summ        collumnmax = j    end if    if summ < summmin then        summmin = summ        collumnmin = j    end ifnext jfor i = 1 to 3    temp = b(i, collumnmax)    b(i, collumnmax) = b(i, collumnmin)    b(i, collumnmin) = tempnext iend subsub result(a, b)for i = 1 to 4    for j = 1 to 4        cells(i, j + 5) = a(i, j)    next jnext ifor i = 1 to 3    for j = 1 to 3        cells(i + 5, j + 5) = b(i, j)    next jnext iend sub

procedure roots(a, b, c: real; var x1, x2: real;

    var fail: boolean);

begin

  var d : = b * b - 4 * a * c;

  if d < 0 then

    fail : = true

  else

  begin

    fail : = false;

    d : = sqrt(d);

    x1 : = (-b - d) / (2 * a);

    x2 : = (-b + d) / (2 * a);

  end

end;

begin

  var x1, x2: real;

  var fail: boolean;

  loop 3 do

  begin

    var (a, b, c) : = readreal3('введи a, b, c: ');

    roots(a, b, c, x1, x2, fail);

    if fail then

      println('нет действительных корней')

    else if x1 = x2 then

      println('x =', x1)

    else

      println('x1 =', x1, '   x2 =', x2)

  end

end.