М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Winstorm
Winstorm
22.01.2020 08:37 •  Информатика

Определите, какие из высказываний в следующих парах являются отрицаниями друг друга, а какие нет. Являются отрицаниями
Не являются отрицаниями
«5<10», «5>10»

«10>9», «10≤9»

«информатика будет первым уроком», «информатика будет вторым уроком»

«ученым известны все планеты Солнечной системы», «в Солнечной системе есть планеты, неизвестные ученым»

«кит — млекопитающее», «кит — рыба»

«этот треугольник равнобедренный и прямоугольный», «этот треугольник или не равнобедренный или он не прямоугольный»​

👇
Открыть все ответы
Ответ:
MissEvaStar
MissEvaStar
22.01.2020
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,27); a.Println;
  var s:=a.Where((x,i)->i.IsEven);
  Writeln('Cумма элементов с нечетными номерами: ',s.Sum);
  Writeln('Произведение элементов с нечетными номерами: ',
      s.Aggregate(BigInteger(1),(x,y)->x*y));
end.

Пример
n= 25
13 6 18 13 14 23 7 3 24 6 6 9 14 8 4 2 14 2 14 22 9 24 19 20 27
Cумма элементов с нечетными номерами: 183
Произведение элементов с нечетными номерами: 167343326631936
4,7(1 оценок)
Ответ:
РЕЛАД
РЕЛАД
22.01.2020
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var (i,k):=(0,-1);
  foreach var c in a.Cols do
    if c.Where(e->e.IsEven).Count<5 then k:=i
    else i+=1;
  if k>=0 then begin
    Writeln('*** Матрица - результат [',n,',',m+1,'] ***');
    SetLength(a,n,m+1);
    for var c:=a.ColCount-1 downto k+1 do
      a.SetCol(c,a.Col(c-1));
    a.SetCol(k+1,ArrFill(a.RowCount,0));
    a.Println(4)
    end
  else Writeln('Нет столбцов с количеством четных элементов, меньшим 5')
end.

Пример
Количество строк в матрице: 8
Количество столбцов в матрице: 6
*** Исходная матрица [8,6] ***
  38 -44  50  20 -85 -92
  15 -43  43   6 -80  63
  76   2 -63  32  14 -37
 -78 -30  94 -45  44 -25
 -74  30  15 -56 -41 -88
  72 -15 -74  38 -47 -76
  11 -75  -2  70  35  65
 -52 -42   9  94  59 -28

*** Матрица - результат [8,7] ***
  38 -44  50  20   0 -85 -92
  15 -43  43   6   0 -80  63
  76   2 -63  32   0  14 -37
 -78 -30  94 -45   0  44 -25
 -74  30  15 -56   0 -41 -88
  72 -15 -74  38   0 -47 -76
  11 -75  -2  70   0  35  65
 -52 -42   9  94   0  59 -28
4,5(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ