В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
petrovvalera05
petrovvalera05
19.06.2020 12:29 •  Информатика

Задача на питоне
Назовём натуральное число N (100000(8cт) <= N <= 777777(8ст)) счастливым, если суммы трех первых и трех последних цифр его восьмеричной записи различаются не больше, чем на 5. Найдите количество таких чисел

Показать ответ
Ответ:
tyyyyyj
tyyyyyj
26.09.2020 02:31
1) диаграмма автоматически перестроится, согласно новых данных
2) получится формула =СУММ(E1:E5)
3) СРЗНАЧ()
4)ввести значение 10 в ячейку А1; ввести формулу =А1+5 в ячейку А2; скопировать(растянуть) формулу из ячейки А2 до ячейки А19
5)=A1*LN(B2*C1)
6)=3*EXP(2*A1)
7)Стандартные функции используются только в формулах. Вызов функции состоит в указании в формуле имени функции, после которого в скобках указывается список параметров. Отдельные параметры разделяются точкой с запятой. В качестве параметра можно использовать число, адрес ячейки или произвольное выражение.
0,0(0 оценок)
Ответ:
илья1968
илья1968
27.09.2020 13:37
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandomReal(n,1,50);
  a.Println;
  var m:=a.Min;
  if m<>0 then
    for var i:=0 to n-1 do a[i]/=m;
  a.Println
end.

Тестовые решения:
n= 5
15.9562486982701 12.6295463515583 11.5262675264507 24.1544637978796 45.6158542677834
1.38433787534893 1.09571865502651 1 2.09560152429653 3.95755643907304

n= 10
14.0622929614327 16.5069398081428 13.2300360101415 45.449448110745 46.6062807271286 41.3808015088461 21.5502972461052 20.3082026570608 6.33108078377837 25.0892608808769
2.22115203417771 2.60728623941069 2.0896962875659 7.17878189569095 7.36150466545052 6.53613544386811 3.40388915922883 3.20769918290964 1 3.96287170196298

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,1,50);
  a.Println;
  var m:=a.Max;
  if m<>0 then
    for var i:=0 to n-1 do a[i]+=m;
  a.Println
end.

Тестовые решения:
n= 8
37 3 10 29 39 31 40 10
77 43 50 69 79 71 80 50

n= 10
9 47 40 19 20 37 21 39 26 31
56 94 87 66 67 84 68 86 73 78
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота