Вопрос задан 01.04.2018 в 13:08. Предмет Информатика. Спрашивает Келімбердиев Темірлан.

Дан массив целых чисел, содержащий 15 элементов .Найти те элементы ,которые при делении на 7 дают 1,

2 или 5

Ответы на вопрос

Отвечу на вопрос мгновенно! Нейросеть ChatGPT. Жми!
Отвечает Орынбекова Нурайлым.

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,1,50); a.Println;
  var s:=a.Where(k->((k div 7) in [1,2,5]) and (k mod 7=0));
  if s.Count>0 then s.Println
  else Writeln('Нет элементов, удовлетворяющих условию')
end.

Пример
41 9 25 19 6 39 27 6 44 40 44 23 35 14 7
35 14 7

Спроси у Chat GPT бесплатно без регистрации!

Последние заданные вопросы в категории Информатика

Информатика 03.06.2023 05:01 3 Кузьмин Демьян.
Ответов: 1
Информатика 03.06.2023 05:04 5 Иванов Денис.
Ответов: 1
Информатика 03.06.2023 05:39 3 Крюковский Артем.
Ответов: 1
Информатика 03.06.2023 05:15 2 Мальцев Данил.
Ответов: 1
Информатика 03.06.2023 05:14 3 Мамаев Максим.
Ответов: 2
Информатика 03.06.2023 05:00 2 Ким Елена.
Ответов: 1
Информатика 03.06.2023 05:02 2 Арланцев Артём.
Ответов: 1
Информатика 03.06.2023 05:36 3 Кривицкая Ульяна.
Ответов: 1
Информатика 03.06.2023 05:36 2 Фефелов Лёша.
Ответов: 2
Информатика 03.06.2023 05:36 2 Пилипенко Максим.
Ответов: 1
< Предыдущий Следующий >
Предметы