ledlenta751
?>

1. Что такое электронные таблицы, для чего они предназначены 2. Что можно записывать в ячейки электронной таблицы 3. Какой будет содержимое B2, если в неё скопировать формулу “=A1+$B1” из ячейки A2 4. Какую логическую функцию надо использовать в формуле, что бы получить результат зависящий от содержимого(значения) других ячеек 5. Что такое математическая модель и как ее построить в электронных таблицах 6. Чем отличается график от диаграммы 7. Как построить диаграмму или график по данным электронной таблицы 8. Напишите формулу для нахождения среднего значения в диапазоне ячеек от A1 до F10 9. Постройте таблицу для расчета температуры кипения воды в зависимости от атмосферного давления, если известно, что Т=179, 47*P^0, 24, где давление берётся в Мпа (в пределах от 0, 1 МПа до 22 МПа Нормальное давление 760 мм рт. ст. (или 1 атм)= 101325Па. Постройте график изменения температуры кипения от 100000Па до 200000Па.

Информатика

Ответы

Vova220
Судя по всему, здесь в цикле складываются квадраты всех нечетных чисел от m до n включительно.

m & 1 - это битовая конъюнкция. Результатом будет 1, если m нечетное, и 0, если m - четное (то есть, содержит или не содержит соответствующий разряд)

Выражение вида T ? X : Y, где T - логическое высказывание, принимает значение X, если T истинно, и Y, если T ложно.

Соответственно, i = (m & 1) == 1 ? m : m + 1 означает, что
если m нечетное, то i = m
если четное, i = m+1 (то есть, первое нечетное число после m)

i += 2 означает, что цикл идет с шагом, соответственно, рассматриваются только нечетные числа.
knyazev527
Const
 n = 20;

var
 pos,neg: integer;
 i,k,x: integer;
 ev,un: integer;
 a,b: array [1..n] of integer;

begin
 for i := 1 to n do
   read(a[i]);
  k := 0;
 pos := 0;
 neg := 0;
  for i := 1 to n do
   begin
      ev := 0;
   un := 0;
      x := a[i];
      if x <> 0 then
     if x > 0 then
       if (x < pos) or (pos = 0) then
         pos := x
       else
     else
       if (x > neg) or (neg = 0) then
         neg := x;
      x := abs(x);
      while x <> 0 do
     begin
     if odd(x) then
       un := un + 1
     else
       ev := ev + 1;
     x := x div 10
     end;
      if un = ev then
     begin
     k := k + 1;
     b[k] := a[i]
     end
      end;

 writeln(pos,' ',neg);
 for i := 1 to k do
   write(b[i],' ')
 end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

1. Что такое электронные таблицы, для чего они предназначены 2. Что можно записывать в ячейки электронной таблицы 3. Какой будет содержимое B2, если в неё скопировать формулу “=A1+$B1” из ячейки A2 4. Какую логическую функцию надо использовать в формуле, что бы получить результат зависящий от содержимого(значения) других ячеек 5. Что такое математическая модель и как ее построить в электронных таблицах 6. Чем отличается график от диаграммы 7. Как построить диаграмму или график по данным электронной таблицы 8. Напишите формулу для нахождения среднего значения в диапазоне ячеек от A1 до F10 9. Постройте таблицу для расчета температуры кипения воды в зависимости от атмосферного давления, если известно, что Т=179, 47*P^0, 24, где давление берётся в Мпа (в пределах от 0, 1 МПа до 22 МПа Нормальное давление 760 мм рт. ст. (или 1 атм)= 101325Па. Постройте график изменения температуры кипения от 100000Па до 200000Па.
Ваше имя (никнейм)*
Email*
Комментарий*