Определите значение переменной c после выполнения следующего фрагмента программы бейсик a=8 a=-5+(a+2) b=(-a-a)*a c=(b-a)*(2-a) (если что есть еще через программу паскаль и алгоритмический, но они не особо отличаются) вариантыответов 10, 12, 15, -5

давай попробуем разобраться

 

а=8                                                                 

а=-5+(а+2)=-5+(8+2)=-5+10=5

b=(-a-a)*a=(-5-5)*5=-10*5=-50

c=(b-a)*(2-a)=(-50-5)*(2-5)=-55*(-3)=165

 

поэтому с=165 и это правильный ответ при твоих исходных данных(написанных операторах языка бейсик). то,   что этого ответа нет в предложенных вариантах может обозначать, что

1. ты ошиблась в условии при написании операторов.

2. ты ошиблась при перечислении вариантов

3. авторы  далеки от программирования, поэтому сами не знают ответа, а в качестве ответа написали набор случайных чисел.

 

что на самом деле - не знаю, уточняй сама.

Uses graphabc;   procedure draw(x, y, l, u : real; t : integer); procedure draw2(var x, y: real; l, u : real; t : integer); begin draw(x, y, l, u, t); x : = x + l*cos(u); y : = y - l*sin(u); end;   begin if t > 0 then beginl : = l/3; draw2(x, y, l, u, t-1); draw2(x, y, l, u+pi/3, t-1); draw2(x, y, l, u-pi/3, t-1); draw2(x, y, l, u, t-1); end else line(round(x), round(y), round(x+cos(u)*l), round(y-sin(u)*l))end; begin setwindowsize(425,500); setwindowcaption('фракталы: снежинка коха'); draw(10, 354, 400, pi/3, 4); draw(410, 354, 400, pi, 4); draw(210, 8, 400, -pi/3, 4); end.

// pascalabc.net 3.0, сборка 1073 const   nn=30;   mm=30; var   a: array[1..mm,1..nn] of integer;   m,n,i,j,k,s: integer; begin   writeln('введите число строк и столбцов массива: '); read(m,n);   randomize;   writeln('*** исходный массив ***');   k: =0;   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(51)-25;           write(a[i,j]: 4);           if odd(a[i,j]) then inc(k)       end;       writeln   end;   if k> 5 then begin       writeln('средние арифметические отрицательных элементов по строкам');       for i: =1 to m do begin           s: =0; k: =0;           for j: =1 to n do               if a[i,j]< 0 then begin inc(k); s: =s+a[i,j] end;           if k> 0 then writeln(s/k: 9: 5) else writeln('  0.00000');       end   end   else begin       writeln('*** результирующий массив ***');       for i: =1 to m do begin           for j: =1 to n do begin a[i,j]: =2*a[i,j]; write(a[i,j]: 4) end;       writeln       end   end end. тестовые решения: введите число строк и столбцов массива: 8 6 *** исходный массив ***   -16  -8  -1  24 -22    1   -9 -20 -25  13 -11  10   -15  10 -12  20 -22    3   -6  25  -3  25 -14  22   24  -4  24  17  -4 -17   -23  -9 -22    1 -18 -13   -12  13    6 -16    2 -13   19    8 -22  14  -3    4 средние арифметические отрицательных элементов по строкам -11.75000 -16.25000 -16.33333   -7.66667   -8.33333 -17.00000 -13. 66667 -12.50000 введите число строк и столбцов массива: 3 5 *** исходный массив ***     3  24 -21 -22  -8   -21  14 -22    0 -22   15 -16  -2    6  22 *** результирующий массив ***     6  48 -42 -44 -16   -42  28 -44    0 -44   30 -32  -4  12  44