Определите конечные значения переменных х и у , в результате выполнения алгоритма: х: =1.5 х: =2*х+1 у: =х/2 у: =х+у х: =х-у

Гляди. вот у нас первая строчка. x: =1.5 это значит, что переменной x мы присвоили значение 1.5 x: = 2*x + 1 значение переменной x равно её текущему значению x * 2 + 3. т.е. x: = 1.5 * 2 + 1 = 4 затем y: = x/2 т.е. y: = 4/2 = 2 дальше по аналогии: y: = x + y т.е. y = 4 + 2 = 6 и последняя операция: x: =x - y x: =4 - 6 = -2 ответ: x = -2, y = 6 x = -2; y = 6;

Vb.       dim a() as integer         randomize()         dim k as integer         dim i as integer         i = rnd() * 100 + 1         redim a(i)         for k = 0 to i             a(k) = rnd() * -1000 + 500         next         dim inta, intb as integer         inta = inputbox("введите начало интервала")         intb = inputbox("введите конец интервала")         dim r, q, s as integer         r = 0         for i = 1 to ubound(a)             if a(i) < a(r) then r = i             if a(i) mod 2 < > 0 then q = q + a(i) '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535             if a(i) > inta and a(i) < intb then s = s + 1         next         msgbox("t=r/q+1+s = " & a(r) / q + 1 + s)

Vb.       dim a() as integer         randomize()         dim k as integer         dim i as integer         i = rnd() * 100 + 1         redim a(i)         for k = 0 to i             a(k) = rnd() * -1000 + 500         next         dim inta, intb as integer         inta = inputbox("введите начало интервала")         intb = inputbox("введите конец интервала")         dim r, q, s as integer         r = 0         for i = 1 to ubound(a)             if a(i) < a(r) then r = i             if a(i) mod 2 < > 0 then q = q + a(i) '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535             if a(i) > inta and a(i) < intb then s = s + 1         next         msgbox("t=r/q+1+s = " & a(r) / q + 1 + s)