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

Придумать, как вы будите применять условия в своих проектах. Составить программу разветвляющихся алгоритмов (достаточно часть проекта, где показано условие)

👇
Открыть все ответы
Ответ:
wella5555
wella5555
14.03.2021
Задачка интересная, исследуем её.Понятно, что программ будет 8. Но в задаче спрашивается, сколько разных чисел получится из двойки, поэтому нужно исследовать каждую программу1. +++     (((2 +2) +2) +2 = 82. ++*      (((2 +2) +2) *3 = 183. +*+      (((2 +2) *3) +2 = 144. *++      (((2 *3) +2) +2 = 105. ***       (((2 *3)  *3)  *3 = 54 6. **+      (((2 *3)  *3) +2 = 207. *+*      (((2 *3) +2)  *3 = 248. +**      (((2 +2) *3)  *3 = 36
Вот только теперь можно сказать что из 2 можно получить 8 разных чисел.
4,5(73 оценок)
Ответ:
MintMartini
MintMartini
14.03.2021
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsByRow;
  var avg:=s.Average;
  Writeln('Среднее арифметическое ',avg);
  Writeln('Элементы, превышающее среднее арифметическое:');
  s:=s.Where(t->t>avg);
  s.OrderBy(t->t).Println;
  Writeln('Всего таких элементов: ',s.Count)
end.

Пример
Количество строк и столбцов в массиве: 4 5
*** Исходный массив ***
  98  95 -10 -45  21
 -33 -11  14 -46  87
  57 -40 -96 -40  15
 -99 -20  -7 -29 -89

Среднее арифметическое -8.9
Элементы, превышающее среднее арифметическое:
-7 14 15 21 57 87 95 98
Всего таких элементов: 8
4,8(70 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ