21. чему будет равно значение ячейки с1, если в нее ввести формулу =а1+b1: 24 15 36 30 23. дан фрагмент электронной таблицы. чему равно значение ячейки а5 10 24. дан фрагмент электронной таблицы в режиме отображения формул. чемубудут равны значения в ячейках b3 и b 4 , если в них скопировать содержимое ячейки b2 : 0, 1 и 0, 1 0, 2 и 0, 2 0, 3 и 0, 3 0, 1 и 0, 2 25. дан фрагмент электронной таблицы: по значениям диапазона a2: d2 была построена диаграмма. укажитеправильный ответ. 26. в электронной таблице значение формулы сумм(в1: в4) равно 13. чему будет равно значению ячейки в4, если значение формулы = срзнач(в1: в3)равно 3: 11 9 10 4 27. в таблице стоимость перевозок между соседнимижелезнодорожными станциями. укажите схему, соответствующую таблице. 28. какое значение s будет на экране в результате выполнения следующего алгоритма: 10 1.5 24 6 6 5 50

21 зависит от того чему равны в1 и а1

23 увижу этотт фрагмент - тогда скажу

24 аналогично 23

25 аналогично 23

 

26 сумм(в1: в3) = 3*3 = 9.

13-9 = 4

27 дайте таблицу тогда и видно будет

28 какого алгоритма?

 

//первая программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       inc(x[i]);   end;     writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

 

 

 

//вторая программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] > 0 then          x[i] : = 0;   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

 

 

 

// третья программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] < 0 then          x[i] : = x[i] * x[i];   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

 

 

 

// четвертая программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] > 10 then          x[i] : = x[i] + 2;   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

ответ: 428

нашел с программы

 

var  x, l, m, i: integer; begin  for i : = 4096 downto 1 do  begin      l : = 0;       m : = 1;       x : = i;             while x > 0 do      begin          inc(l);           m : = m *(x mod 8);           x : = x div 8;       end;       if (l = 3) and (m = 120) then      begin          writeln('x = ', i);           break;       end;   end;   readln; end.